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CIMEX IN’ :l 1 EXNÍ APMCAOON ES Y UTILIDADES PAJIA Comitiodore 


ELECTRONICA 
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¡Hasta el precio 
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BARA 


[ COMPILADOR 


(d) 5.000 


CONTABILIDAD PERSONAL (d) 3.000 (c) 2.500 
EDITOR DE ETIQUETAS (d) 6.000 (c) 2.500 
SIMULADOR DE SPECTRUM ( C ) 2.500 
BASE DE DATOS (d) 8.000 (c) 3.500 


® 2 EEE®gES @3 

MUSIC 64 
PERSPECTIVAS 
GESTION DE STOCKS 
EDITOR DE RECIBOS 
PROTEXT 


(d) 3.500 (c) 3.000 
(d) 5.000 (c) 4.500 | 
(d) 10.000 
id) 15.000 
(d) 7.950 

AYUDA AL PROGRAMADOR (d) 3.000 (C) 2.500 


CINTA C-10 (10 unidades) 

CINTA C-20 (10 un dades) 

CABLE CENTRONICS C-64 
FUNDA C-64 y VIC-20 
JOYSTICK QUICKSHOT II 
JOYSTICK QUICKSHOT I 
JOYSTICK QUICKSHOT II + (con microrruptores) 
KIT AJUSTE DATASSETTE 
PLATINA EXPERIMENTAL por! usuario 


990 

3.450 

850 

1.390 

990 

2.595 

2.395 

950 


PLACA EXPANSION PORT USUARIO (3 salidas) 3900 
EXPANSION PARA 4 CARTUCHOS 10900 

VENTILADOR PARA DISK ORIVE 3900 

CABLE 40/80 COLUMNAS PARA C-128 2850 

CASSETTE COMPATIBLE C-64 y VIC-20 4900 


í:$í 


SOFTWARE DE GESTION Y UTILIDADES PARA AMIGA,C-64 Y 123. CONSULTENOS 


INTEGRADOS Y CONECTORES 

CIA 6526 

CPU 6510 3 íf 

SID 6580 ™ 

PAL 6569 6 <X 

PLA 906114 3 ! 

8502 lí* 

8721 ^ 

8701 3 - 

CONECTOR PORT USUARIO 
CONECTOR PORT EXPANSION para placa 1.2! 
EPROM 27128 ’ 



PROGRAMADOR DE EPROMS M.900 

IC TESTER 16.900 

TARJETA DE EPROMS 4 x 8 K 3250 

BORRADOR DE EPROMS 15900 

OSCILOSCOPIO para C-64 y 128 24.900 

DISK NOTCHER (Taladro doble cara diskettes) 1950 

RATON C-64 (soft en dískette o cassette) 9.900 

-5-801 y GP/500 950 

5-10 y OKI 80 250 


c 


CONDICIONES ESPECIALES PARA DISTRIBUIDORES 


SERVICIO DE REPARACIONES 

REPARACION DE C-64.C-128.C-I6 Y VIC-20 
DISK DRIVE 1541,1570 Y 1571 REPARACION Y AJUSTE 
REPARACION Y AJUSTE DATASSETTES. 




SOLICITE NUESTHU CATALOGO 
ENVIOS CONTRA REEMBOLSO A T00A ESPAÑA SIN GASTOS. 

ENVIOS INFERIORES A 2.000 PTAS., AÑADIR 300 PARA GASTOS DE ENVIO. 
SUOAMERICA AÑADIR 700 PTAS. 

ACEPTAMOS TARJETAS 0E CREDITO. 


CIMEX 

ELECTRONICA 


FLORIDABLANCA. 54 Ent. 3.° A 
08015 BARCELONA 
Tel. 224 34 22 













































































































■ 

gsrrs 


MULTIHARD TURBO 2 


Recorte y envíe este cupón de 
solicitud de información 


antes del 19 de abril 


a Ediciones INGELEK, 
apdo. de Correos 
61294. 28080 Madrid 


Nombre _ 
Dirección 
C. Postal _ 
Provincia 


Población 
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SOFTMODORE 



Quedan 24 horas para la destrucción mundial; 
nuestras esperanzas están depositadas 
en Flash Gordon. 

Pag. 39. 




EQUIPOS 
Sí disponemos de un 
C-64, ya podemos 
tener nuestro 
digítalizador 
de imágenes con 
Digi-View 64. 
Pag. 26. 
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Cumplimos con este número 12 un año 
de nuestra cita mensual en el quiosco, en 

esto nueva época nacido de vuestras opi¬ 

niones y sugerencias sobre el contenido, 
presentación y talante de la revista. Apro¬ 

vechamos pues la ocasión para felicitaros, y 
agradeceros vuestra colaboración en la 

confección de TU MICRO COMMODORE, 

pues ya hemos comenzado a recibir con¬ 

testaciones al cuestionario publicado el mes 
pasado. Animaos y seguid enviando vues¬ 

tras respuestas; tenéis aún de plazo hasta el 
15 de abril para optara ese fantástico sor¬ 

teo de una cadena Hi-Fi y diez Koala Pads. 



















































Premiados en el 
concurso Berma - 
Calerías 
Preciados 

A continuación publicamos 
la lista de ganadores en el 
sorteo Serma-Galerias Pre¬ 
ciados, llevado a cabo du¬ 
rante la campaña de Navi¬ 
dad. Los premios consisten en 
cinco motos Suzuki-Puch que 
serán entregadas próxima¬ 
mente a: 

Antonio Magaña, de Sevi¬ 
lla. 

Manuel Castilla, de Gra¬ 
nada. 

Juan Carlos Melián Sosa, 
de Las Palmas. 

Pedro Milla Márquez, de 
Córdoba. 

Juan Antonio López Alca- 
raz, de Murcia. 
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Ordenador de 
bolsillo Sharp 
con eaKB 

La empresa Sharp presen¬ 
ta un nuevo miembro de su 
amplia gama, el PC-1360, el 
cual incorpora todas las fun¬ 
ciones que se precisan para 
aplicaciones profesionales y 
personales. 

Este nuevo ordenador es 
programable en BASIC, e in¬ 
cluye funciones matemáticas 
y funciones de edición am¬ 
pliadas (renum, delete). Dis¬ 
pone de los slots para tarjetas 
de memoria RAM intercam¬ 
biables, que permiten dispo¬ 
ner de hasta 64Kb de memo¬ 
ria RAM, para crear sofistica¬ 


dos y potentes programas. 

Incorpora interfaces para 
recogida y transmisión de in¬ 
formación a través del RS-232 
que, en sus reducidas dimen¬ 
siones, combina las funciones 
de una calculadora con las 
posibilidades de un ordena¬ 
dor programable. 

La pantalla del PC-1360 


nos ofrece 4 líneas de 24 ca¬ 
racteres. Trabajando con grá¬ 
ficos podemos controlar des¬ 
de el BASIC cada uno de los 
150 x 32 puntos. 

El Sharp PC-1360 se impor¬ 
ta por Mecanización de Ofi¬ 
cinas S.A. y se distribuye a tra¬ 
vés de distribuidores autoriza¬ 
dos. 



Enfa Ibérica 
cambia 
de domicilio 

Enfa Ibérica, empresa 
especializada en periféri¬ 
cos y microaccesorios im¬ 
prescindibles para nues¬ 
tro ordenador, cambia de 
domicilio a la calle Senda 
Galiana s/n. Edificio Enfa. 
28080 Coslada (Madrid), 
y su nuevo teléfono 
672 72 11. 


Novedad de 
ámbar 
electrónica: 
Olimpic 2000 

El sistema de alimentación 
ininterrumpida OLIMPIC 2000 
es muy útil para evitar la pér¬ 
dida de información que este¬ 
mos tratando en nuestro or¬ 
denador en el caso del corte 
eléctrico. Es totalmente silen¬ 
cioso, con un tamaño y peso 
reducido. Posee además dos 
tipos de salida, de onda sinu¬ 
soidal y permanente sin cor¬ 
tes, con una potencia nomi¬ 
nal con coseno phi 0,7 200 


VA y una potencia nominal 
de 1.500 W. 

Su autonomía al 75% de la 
carga es de un mínimo de 20 
minutos, utilizando baterías 
de plomo hermético sin man¬ 
tenimiento. Se desconecta 
automáticamente si la batería 
está baja, avisando previa¬ 
mente con un sistema lumino¬ 
so. Así mismo, tiene incorpo¬ 
rado un avisador acústico pa¬ 
ra el fallo de suministro eléctri¬ 
co. Está protegido contra so¬ 
brecargas y cortacircuitos, 
con la entrada y salida aisla¬ 
das galvánicamente entre sí. 

Esta novedad está comer¬ 
cializada por Ambar Electró¬ 
nica, sito en la Avenida Mar¬ 
qués de Motroig, 259 de Ba- 
dalona (Barcelona), con el te¬ 
léfono (93) 211 69 68. 
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La base de datos 
Fundesco sobre 
tecnologías de la 
Información: útil 
V gratuita 

La base de datos Fundes¬ 
co, creada por la Fundación 
para el Desarrollo de la Fun¬ 
ción Social de las Comunica¬ 
ciones, alberga lo que se pu¬ 
blica en castellano en las re¬ 
vistas del sector de Telecomu¬ 
nicaciones, Electrónica e In¬ 
formática, además de rese¬ 
ñas de proyectos de investi¬ 
gación, tésis, informes, libros, 
etc., de gran utilidad para 
aclarar un concepto o ente¬ 
rarse de las tendencias más 
modernas. 

Conectarse en línea a la 
base de datos Fundesco es 
muy fácil: basta\Jisponer de 
un ordenador personal con 
un programa de comunica¬ 
ciones, un modem y por su¬ 
puesto, un teléfono. Si a esto 
añadimos la gratuidad, por lo 
menos hasta el 10 de junio de 
1987, es evidente lo ventajo¬ 
so de su oferta. 

Además, para aquéllos 
que no dispongan del mínimo 
equipamiento necesario para 
conectarse por teléfono, exis¬ 
ten el servicio fuera de línea, 
que se solicita por carta o por 
teléfono, y el de «difusión se¬ 
lectiva de la información», 
que es una especie de «abo¬ 
no» para recibir periódica¬ 
mente las últimas informacio¬ 
nes introducidas en la base 
de datos sobre el tema o te¬ 
mas de interés para el abona¬ 
do. 

Para solicitar más informa¬ 
ción o, simplemente, la inclu¬ 
sión en el registro de usuarios 
y recibir la correspondiente 
contraseña y los documentos 
de consulta, dirigirse a: 

FUNDESCO 
Serrano, 187 
28002 Madrid 
Tel. : (91) 4505800 










enhorabuena a 
los ganadores 

Este mes los agraciados 
ganadores de una suscrip¬ 
ción por seis meses a nuestra 
revista TU MICRO COMMO- 
DORE, por la ayuda prestada 
en la confección de la sección 
LOS 7 MAGNIFICOS, han si¬ 


do los siguientes lectores: 

José Pascual, de Sabadell 
(Barcelona). 

M. a Sol Marota, de Alcalá 
de Henares (Madrid). 

Mañano Arrese, de Ma¬ 
drid. 

Ivan Nieto, de Bilbao. 

Nuria Draper, de Lloret de 
Mar (Gerona). 


Elia Domínguez, de La Co- 
ruña. 

José Ferrón González, de 
Mérida (Badajoz). 

José Ramón Quesada, de 
Madrid. 

José García Caro, de Valls 
(Tarragona). 

José Ma. Gómez, de Agui¬ 
las (Murcia). 
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TARDAREMOS EN VER 
ALGO MECIDO. 


En informática ya es difícil sorprender. 
Pues bien, Commodore lo ha conseguido 
con Amiga. 

Más que una nueva generación de orde¬ 
nadores, el Amiga de Commodore repre¬ 
senta un nuevo concepto. Un ordenador 
que ofrece una serie de posibilidades y 
abre unos caminos que hasta hoy eran im¬ 
pensables. 

Entre las novedades de este ordenador 
profesional destacan: la posibilidad de tra¬ 
bajar con un procesador de 32 bits y de 3 
coprocesadores específicos, actuando los 
4 al tiempo. 

Además, Amiga dispone de pantallas y 
ventanas configurables con una resolución 
de 640 x 400 puntos escogiendo entre 


una paleta de 4.096 colores. 

Trabaja con 4 canales independientes 
polifónicos con voz masculina y femenina, 
y por si fuera poco, Amiga de Commodore 
es el único ordenador multitarea que puede 
efectuar varios trabajos simultáneamente. 

El precio también es importante. Por 
330.000 ptas. ex. IVA, el Amiga incluye: 

- Unidad central con 768 K RAM. 

- Monitor de alta resolución en color y so¬ 
nido. 

- Unidad de discos de 880 K. 

- Teclado profesional y ratón. 

Por mucho que avance la investigación 
en el campo de los ordenadores, tardare¬ 
mos en ver algo parecido. 



commodore 


Imagina siempre lo mejor. 


Microelectrónica y Control, S.A. Unico representante de Commodore en España. 

c/Valencia, 49-53 Tel. (93) 325 5702 08015 Barcelona - c/Ardemans, 8 Tel. (91) 246 3736 28028 Madrid 


© Bassat,Ogilvy & Mather 
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Aliens: 
del noveno 

pasajero 

en adelante... 

El juego de «Electric Dreams» sobre la película del mismo título. 


La nave espacial Nostramo, en misión científica por el 

Universo, detecta una alarmante emisión de naturaleza 

desconocida procedente de un planeta cercano. La tri¬ 

pulación decide investigar y descubre unas extrañas for¬ 
maciones geológicas que resultan ser embriones de una 


voraz y temible raza de seres alienígenas. Uno de estos 

extraterrestres consigue introducirse en la nave, sem¬ 

brando el terror y la muerte entre los tripulantes. Se trata 
de... ALIEN. 


- n miembro de la expedición, 

W la valerosa Ripley, logra es¬ 
capar de la nave antes de 
I que el sistema de autodes- 
9 trucción entre en funciona¬ 
miento. EL ALIEN, finalmente, perece abra¬ 
sado por las toberas de la cápsula de esca¬ 
pe y la nave se aleja mientras un cartel que 
dice «The End» nos indica que es hora de 
abandonar la sala. 

Aunque en un principio así lo creíamos, 
la historia no terminó con el citado letrero. 
Unos años después, la cápsula en la que 
viajaba Ripley llegó a la T¡erra, y ésta fue in¬ 
terrogada. La historia del marcianito feú¬ 
cho y hambriento no fue demasiado del 
agrado de sus superiores, que decidieron 
no creer ni una palabra y destinarla a otro 
tipo de actividades. 

Al cabo de un tiempo se recibieron noti¬ 
cias del exterior: una base terrestre en un le¬ 
jano planeta estaba infestada de extrañas 
criaturas espaciales, con unas costumbres 
culinarias en extremo desagradables para 
la especie humana. De modo que Ripley 
marcha al planeta para verse de nuevo ca¬ 
ra a cara con los aliens (todo esto es lógico, 
o si no, ¿cómo podrían haber realizado la 
continuación?). 

Trasladémonos ahora de la pantalla de 
cine al pequeño monitor de nuestro Com- 
modore, para saber cómo acabará esta 
aventura (tal vez éste sea el fin definitivo). 


«Bueno, ya estamos en la base. 
¿Y ahora qué? 

Estas fueron las primeras palabras de Ri¬ 
pley al penetrar en el complejo metálico, lo 
que da una ¡dea del estudiado y estricto 
plan de ataque que ya tenía preparado. La 
verdad es que si un solo alien había causa¬ 
do todos los estragos que ya conocemos... 
bueno, no se puede decir que al reunirse 
unos cuantos centenares de ellos se dedi¬ 
casen a jugar al mus o a comentar el último 


consejo de alienistros. El estado de la base, 
¡unto con el hecho de saber que posible¬ 
mente en la habitación de al lado los aliens, 
enterados de su llegada, estén ya redac¬ 
tando el menú del día, no se puede definir 
como una situación divertida. La misión iba 
a ser muy dura y peligrosa, y sinceramente, 
no sabemos a qué esperas para echarles 
una mano. 

Desde tu ordenador terrestre tienes con¬ 
trol sobre 6 miembros de la tripulación, ca¬ 
da uno con sus defectos y cualidades: 

— Ripley: Ya la conocemos. Es la única 
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superviviente del Nostromo. Está muy afec¬ 
tada por lo que ocurrió y teme a los aliens 
más que a su propia suegra, aunque lucha 
contra ellos como si de ésta se tratara. 

— Gorman: Teniente y responsable del 
grupo. Esta es su primera misión y por tanto 
se le puede excusar el temblor de piernas 
que le asaltó al entrar en la base y ese de¬ 
sagradable olor de connotaciones meta- 
bólicas que todos pudieron apreciar y cuya 
procedencia nadie trató de averiguar por 
compañerismo. 

— Hicks: Marine colonial. Posee rápidos 
reflejos y una mente despierta, no se deja 
acobardar fácilmente, es veloz y suele salir 
él solito de las peores situaciones. Una joya, 
vamos... 

— Bishop: Oficial. Nunca le preocupó 
saber si los niños vienen o no de París, por¬ 
que sabe que en su caso no fue así. Es un 
androide, un ingenio mecánico, y actúa co¬ 
mo tal: más rápido que cualquier ser huma¬ 
no, obediente y digno de confianza. 

— Vasquez: Soldado. Mantiene el con¬ 
trol bajo presión. Su mente es fría y calcula¬ 
dora, y quizá por esta razón su familia siem¬ 
pre le encargaba descifrar el recibo de la luz 


(Informes confidenciales, cuya proceden¬ 
cia no es lícito señalar aquí, indican que no 
siempre lo conseguía...). 

— Burke: Pertenece a la compañía. Esta 
más interesado en conservar el dinero de 
ésta que la vida de sus compañeros. Una 
auténtica mente de político en este caos es¬ 
pacial. 

Para acceder al control de cualquiera de 
estos personajes basta con pulsar la tecla 
de su inicial, exceptuando el caso de Bis¬ 
hop, cuya letra es la «I». 

Cada uno de los miembros de la tripula¬ 
ción está equipado con un MTOB, cuyo 
bonito nombre significa Mobile Tactical 
Operatíons Bay, más o menos. Gracias a 
este sistema podemos tener una vista par¬ 
cial de la habitación en la que el personaje 
se encuentra. Esta panorámica puede ser 
desplazada a voluntad mediante el Joys- 
tick a izquierda o derecha, con lo que con¬ 
seguimos una imagen completa del sector 
en cuestión, así como ver acercarse a los 
aliens antes de que sea demasiado tarde. 

Te estarás preguntando cómo es posible 
que un aparatejo con un nombre tan ¡m- 
pactante sirva sólo como cámara de televi¬ 


sión. Has hecho bien. El MTOB tiene otras 
utilidades, no te desilusiones. Veámoslas. 

Si tienes botón de disparo (lo cual es muy 
probable si dispones de Joystick) puedes 
disparar contra los aliens que piensen utili¬ 
zarte como excusa para interrumpir su régi¬ 
men. Son seres de ideas muy cerradas, así 
que no trates de convencerles («pero, hom¬ 
bre, vaya michelines», «mira que cinturita 
de avispa», «estar delgado es estar sano», 
«la gula no conduce a nada»), cuando 
aparezca uno dispara y procura acertar. El 
punto de mira se controla con la palanca 
del Joystick hacia arriba, abajo, izquierda y 
derecha. Empléalo contra cualquier ele¬ 
mento hostil que encuentres (recaudador 
de impuestos incluido). 

El retrato del personaje seleccionado 
aparece en la parte inferior de la pantalla. 
No se puede decir que se trate del culmen 
de la utilidad, pero hace bonito. A su iz¬ 
quierda (con perdón) se encuentra el indi¬ 
cador de funciones biológicas, que señala 
la actividad del personaje. Si éste muere, 
deja de funcionar. A la derecha (con per¬ 
dón) del retrato, está el nivel de munición 
(suponemos que no esperarías que los pro- 
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gramadores tuvieran el detalle de ofrecerla 
¡limitada). iVigila bien este indicador! El 
ahorro es la fuente de la prosperidad. 

En el centro (con perdón) de la pantalla y 
sobre la cara del personaje puedes ver el 
nombre de éste. El control de un tripulante 
se mantiene hasta la elección de otro. 

En la parte inferior, se encuentra la pun¬ 
tuación, que debes aumentar lo más posi¬ 
ble para poder dar envidia a los amigos 
que pretenden arrebatarnos el puesto de 
los mejores jugadores del barrio. El número 
de la habitación en la que está cada per¬ 
sonaje aparece representado sobre la ba¬ 
rra de control biológico. Esta tiene dos fun¬ 
ciones: 

— Condición psicológica: Si el color es 
verde, indica que el miembro de la misión 
se encuentra sin dificultades. Cuando la 
barra se vuelve amarilla, el individuo está 
siendo impregnado por los aliens, para 
transformarlo en uno de ellos. Mientras uno 
vigila, otro se encarga de impregnarlo. Es 
posible salvarle enviando otro personaje a 
la habitación y matando al vigilante. Si la 
barra es de color rojo, ya no hay salvación 
posible. Reza una oración por el eterno 


descanso de su alma y sigue tu camino (bu¬ 
cólico ¿eh?). 

— Nivel de fuerza: Cuanto más se mue¬ 
va un tripulante más cansado estará, lo que 
se nota en la disminución de longitud de la 
barra. Si ésta parpadea, el nivel de cansan¬ 
cio es peligrosamente alto, y si desaparece 
es necesario seleccionar otro personaje, ya 
que el escogido está completamente ex¬ 
hausto y no responderá a tus órdenes. 


Si de repente empieza a sonar una alar¬ 
ma no pienses que tu ordenador está sien¬ 
do atracado, lo que ocurre es que el detec¬ 
tor de proximidad señala la presencia de 
un alien en la misma habitación en la que el 
nombre del tripulante cambie de color. Asu¬ 
me el control de éste lo más deprisa posible 
y defiéndete con uñas y dientes contra el 
ataque (un consejo: da mejor resultado ha¬ 
cerlo con el canon láser). 
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6 personajes y 2 objetivos: vivir 
y mantener el control de la base 

Esta vez lo han hecho. ¡Por fin! Junto con 
el juego viene incluido un mapa completo 
de la base con las habitaciones más impor¬ 
tantes numeradas. Las demás están en 
blanco, pero por tratarse de ti, que nos si¬ 
gues número a número, publicamos un pla¬ 
no con los números de todas las habitacio¬ 
nes. De nada. Si te sientes lo suficientemen¬ 
te agradecido por darte el trabajo resuelto 
puedes enviarnos un cheque de seis cifras 
por lo menos. Será bien recibido. 

Una vez tengas tu mapa en la mano pue¬ 
des moverte de dos formas: situando el 
punto de mira sobre una puerta y pulsando 
la barra espaciadora o tecleando el núme¬ 
ro de habitaciones (de 1 a 9) y la dirección 
(N, S, E, W) en que deseemos que se des¬ 
place. Al tomar el control de otro personaje, 
el programado se moverá según lo indica¬ 
do. Las puertas pueden ser selladas dispa¬ 
rando contra el dispositivo que se encuen¬ 
tra a su lado. Para pasar por una puerta 
bloqueada es necesario derribarla antes. 


Los aliens entran por todos los lados, esté la 
puerta sellada o no, por lo que esta medida 
no te protegerá de su voracidad. 

Los excrementos bio-mecánicos cubren 
las paredes de las habitaciones por donde 
han pasado los aliens. Si no las destruyes 
crecen y tapan las puertas, no dejándote 
pasar. A pesar de la desolación que reina 
en la base, Newt, una pequeña niña ha 
conseguido sobrevivir, escondiéndose en 
los tubos de ventilación. Puede aparecer en 
cualquier momento, y si la encuentras reci¬ 
birás una puntuación extra. 

En todo momento, pulsando la letra «P», 
puedes producir una pausa y consultar una 
tabla resumen de los aliens destruidos y la 
oleada de ataque en curso. 

Algunas habitaciones son claves para el 
desarrollo del juego. El centro de control 
(78) y el generador (174) son muy importan¬ 
tes. Sitúa algunos tripulantes aquí, pues si 
pierdes el control de estas habitaciones las 
luces se apagarán. En la número 248 está 
la reina, poniendo huevos continuamente. 
Lleva hasta aquí la mayor cantidad posible 
de gente y ¡que la fuerza te acompaña 1 


¿Quién dijo que segundas partes 
nunca fueron buenas? 

Aliens es un buen juego, ni más ni menos. 
La calidad gráfica está muy bien consegui¬ 
da, así como el desarrollo y forma de mane¬ 
jo. En un principio es bastante entretenido, 
pero con el paso del tiempo llega a aburrir 
un poco. No se puede decir que se trate de 
un juego indispensable en cualquier ludo- 
teca, pero está de más tenerlo a mano para 
jugar de vez en cuando. 

Queremos aquí hacer un llamamiento a 
los programadores y distribuidores de jue¬ 
gos: ¡por favor, no nos pongan las cosas 
difíciles! Agradecemos enormemente el 
gesto de incluir el mapa con el programa 
(de otro modo sería prácticamente imposi¬ 
ble jugar), pero podrían haberlo rellenado 
¡que lo tenemos que hacer todo nosotros! 
Sobre todo, tratándose de juegos difíciles 
como éste, apoyamos la ¡dea de los planos 
incluidos en el precio, y esperamos que 
pronto se convierta en una deseable cos¬ 
tumbre. Gracias. 
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Láser Compile? 

Un compilador para algo más que el simple BASIC 


Este compilador, desarrollado por OASIS SOFTWARE, es totalmente 


compatible con el intérprete de LASER BASIC, versión ampliada de este 

lenguaje, en la que se incluyen 256 nuevas palabras 

BASIC para los 

COMMODORE. 



I compilador traduce tanto 
los programas escritos en LA¬ 
SER BASIC, como los confec¬ 
cionados por la versión de 
este lenguaje contenida en 
la ROM del propio ordenador, obteniendo 
como resultado un programa «objeto» o 
«absoluto», en código máquina, ejecutable 
por el ordenador a una velocidad muchas 
veces superior a la que cabe esperar de la 
puesta en funcionamiento de programas 
BASIC en modo intérprete. 

Otra característica peculiar de esta apli¬ 
cación es la de poder compilar programas 
fuente de cualquier longitud, incluso si éstos 
se encuentran almacenados en cinta. En 
cualquier caso, a la hora de compilar un 
programa es posible optar por una serie de 
alternativas: 

1. Aritmética entera, con objeto de aho¬ 
rrar en tamaño del programa C/M y veloci¬ 
dad de ejecución, o aritmética habitual de 
coma flotante. 

2. Conexión/desconexión del chequeo 
de errores de compilación. 

3. Compilación de programas fuentes 
escritos en lenguaje BASIC convencional o 
LASER BASIC. 

El compilador es totalmente compatible 
con el BASIC intérprete, facilitando el em¬ 
pleo de cadenas y tablas de longitud varia¬ 
ble. Además, es posible compilar, a su vez, 
Ja mayoría de los programas BASIC escritos 
en LIGHTNING BASIC, bajo las restriccio¬ 
nes especificadas en el manual. 

Los programas objeto pueden cargarse 
y ejecutarse, con total independencia del 
software del compilador, permitiendo a los 
autores la libertad de publicar los progra¬ 
mas absolutos sin restricciones comerciales. 

Otra ventaja adicional, para los usuarios 


de la unidad de cinta, es la de poder bene¬ 
ficiarse de la rutina de lectura/grabación 
rápida de que está dotado el compilador. 
De esta forma, los programas objeto alma¬ 
cenados en cinta trabajan a gran veloci¬ 
dad. 


Contenidos del programo 

Además del programa compilador, se 
suministran, en cada disco o cinta, una serie 
‘de programas de utilidad: 

1. DEMO muestra los resultados que se 
pueden obtener con el uso combinado del 
LASER BASIC y el compilador. 

2. TURBO es una rutina de utilidad, des¬ 
tinada a los usuarios de cinta, la cual facili¬ 
ta la lectura/grabación rápida, según las 
indicaciones contenidas en el manual. 

3. BOOTGEN se suministra únicamente 
en la versión en disco. Permite almacenar 
programas sobre este soporte, los cuales 
pueden cargarse en la forma: 

LOAD "nombre-fichero",8,1 

4. LIB1 a LIBÓ son librerías en tiempo de 
compilación, las cuales deben estar pre¬ 
sentes para poder compilar cualquier pro¬ 
grama, aunque solamente es necesaria 
una de ellas cada vez, dependiendo de las 
opciones de compilación especificadas. 


Funcionamiento del compilador 

Nada más poner el programa compila¬ 


dor en funcionamiento, éste nos pregunta 
por el número de periférico con el que va¬ 
mos a trabajar. Las opciones posibles son: 
1-cinta, 8-disco, 9/10/1 1 unidades de dis¬ 
co adicionales, obteniéndose por defecto, 
al pulsar RETURN, el número de periférico 
correspondiente a la unidad desde la cual 
se ha efectuado la carga del programa 
compilador. 

A continuación, se pide el nombre del 
programa BASIC fuente, el cual es cargado 
en la memoria. Inmediatamente, aparecen 
en la pantalla las diferentes opciones a se¬ 
leccionar, suponiéndose esta vez por de¬ 
fecto, que se trata de programas LASER BA¬ 
SIC con aritmética de coma flotante. 

A partir de este momento, es cuando co- 
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de almacenamiento de valores numéricos 
va desde —8388608 a 8388607. En gene¬ 
ral, podemos decir que el funcionamiento 
de esta aritmética es el mismo que el habi¬ 
tual en el sistema de coma flotante, con re¬ 
dondeo al entero anterior por defecto. 

Sin embargo, existe alguna excepción a 
esta regla, como es el caso de la división 
con resultado negativo. En este caso, se re¬ 
dondea el resultado al entero superior. 

Podemos ver más claramente este efecto 
con un ejemplo: 

10 PRINT 5*4/2 
20 PRINT 5/2*4 

El resultado de estas dos operaciones, 
dentro del BASIC intérprete (coma flotante), 
es el mismo: 10. Sin embargo, dentro de la 
compilación con aritmética entera, el resul¬ 
tado es 10 y 8, como fruto del redondeo a 
enteros de las operaciones intermedias. 

En cuanto a la generación de aleatorios, 
debemos decir que su empleo es posible, 
respetando la norma de hacer seguir la 
operación RND(l) de la multiplicación por 
un número, caso por otro lado habitual en 
la mayoría de ocasiones, debido a que la 
función RND genera tan sólo un número de 
coma flotante en el intervalo: 0<=n<l. 

Por último, falta decir que no éstá autori¬ 
zado el empleo de funciones trascendenta¬ 
les: LOG, EXP, COS, SIN, TAN, y ATN. 


de la aritmética entera, el rango 


mienza verdaderamente el proceso de 
compilación, el cual requiere de tres pasa¬ 
das de las que, en las dos primeras, obten¬ 
dremos en pantalla información relativa al 
número de línea en tratamiento. Si no se 
producen errores, obtendremos el mensaje 
de compilación satisfactoria, al final de la 
tercera pasada. 

Para completar la compilación es preci¬ 
so cargar uno de los módulos de biblioteca, 
dependiendo de las opciones de compila¬ 
ción especificadas. En el caso de la unidad 
de disco, esta carga se efectúa de forma in¬ 
mediata; en el de la unidad de cinta, se pre¬ 
gunta primero por la velocidad de carga, 
por si utilizamos o no, en su momento, la 
función TURBO. Completada esta opera¬ 
ción, el programa objeto queda convertido 
en ejecutable. 

Palabras BASIC no utilizables 

El empleo de determinado vocabulario 


de palabras BASIC, resulta absurdo o in¬ 
compatible con el funcionamiento del pro¬ 
grama compilado. Por ello, algunos co¬ 
mandos tanto del BASIC ROM como del 
LASER BASIC, no pueden emplearse. En la 
versión ROM son: CONT, LIST, LOAD, 
NEW, SAVE y VERIFY. En la versión LARER 
son, además: AUTO, DIR, DLOAD, DSA- 
VE, OLD y RENUM. 


Compilación de programas 
extensos 


Cuando la longitud del programa fuente 
supera los 20 Kbytes, no es posible cargarlo 
enteramente en memoria para su compila¬ 
ción. Para poder trabajar en estos casos, el 
compilador se sirve de ficheros temporales 
almacenados en cinta o disco. Este fichero 
temporal, llamado COM.TMP, se reutiliza 
automáticamente cada vez que es necesa¬ 
rio, en la versión de disco. 


en modo entero 
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Turbo para cinta 


Los programas absolutos generados por 
el compilador, pueden leer y grabar fiche¬ 
ros en cinta en el formato TURBO (alta velo¬ 
cidad). Los programas almacenados en es¬ 
te formato en cinta, pueden cargarse nor¬ 
malmente, aunque para grabar de memo¬ 
ria a casete es necesario utilizar el progra¬ 
ma de utilidad suministrado ¡unto con el 
compilador. 

El generador boot 

Esta utilidad se suministra únicamente en 
la versión en disco, permitiendo cargar y 
ejecutar programas directamente, en la for¬ 
ma: 

LOAD "nombre-fichero",8,l 
Para ello, se almacena un programa en 
disco con el nombre que indiquemos, el 
cual se encarga de llevara memoria el pro¬ 
grama objeto y ponerlo inmediatamente 
en funcionamiento. 


Uso combinado con rutinas 
en código máquina _ 

Cuando se ejecuta un programa compi¬ 
lado, la ROM del BASIC es commutada 
fuera del banco de memoria accesible, y se 
utilizan las posiciones de memoria hasta 
$CFFF. Para reservar memoria, destinada a 
albergar rutinas en código máquina, pue¬ 
den efectuarse POKEs a las direcciones de 
página cero 45 y 46 para, a continuación, 
ejecutar un CLR, de forma similar a como se 
trabaja en el modo intérprete. 

Por otra parte, en los programas LASER 
BASIC existen 256 bytes disponibles, co¬ 
menzando en la posición $0500, que pue¬ 
den emplearse para albergar estas rutinas. 

El comando LOAD no puede utilizarse 
directamente dentro de los programas 
compilados. La mejor forma para salvares- 
te problema es acceder directamente a la 
rutina del KERNAL "LOAD" contenida en la 
ROM, a través del comando SYS, utilizan¬ 
do las posiciones de memoria 780 a 783 
para activar los registros del microprocesa¬ 
dor. 


Los detalles sobre cómo realizar esta 
operación, pueden encontrarse en la Guía 
de Referencia del Programador del COM- 
MODORE 64. 


Encadenamiento de programas 

Esta opción es únicamente aplicable a la 
versión de disco. Con ella, es posible car¬ 
gar otro programa al finalizar la ejecución 
del contenido en memoria, ejecutándose 
éste de forma automática. 

Este efecto se logra incluyendo en el pro¬ 
grama fuente una sentencia END seguida 
por dos puntos y el nombre del programa a 
encadenar entre comillas: 

END: "nombre-programa" 

Nombre: Láser Compiler 

Precio: 6.500 ptas. (disco) 
y 5.200 ptas. (cinta) 

Distribuidor: COMPULAND 
Calvo Asensio, 8 
Tel.: 243 16 38 
28015 MADRID 
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El bombero 



la primera brigada de bomberos. En cen¬ 
tralita contestan a la urgente llamada tele¬ 
fónica concerniente al incendio que acaba 
de declararse. La actividad entonces es fe¬ 
bril; todos los bomberos de guardia se pre¬ 
paran para salir y uno tras otro se deslizan 
por la barra de emergencia hasta llegar a 
su vehículo. Cinco minutos después de reci¬ 
bir la llamada, las sirenas del transporte de 
bomberos emiten la señal de prioridad de 
tráfico, mientras éste se precipita por las ca¬ 
lles vertiginosamente. 

Hora: 10:25. El vehículo frena ruidosa¬ 
mente frente a la fachada en llamas del in¬ 
mueble. Como un solo hombre, todos los 
ocupantes del mismo descienden a la vez: 
cada uno conoce ya su cometido específi¬ 
co. El ¡efe de bomberos examina roída¬ 
mente la situación, pregunta a los vecinos 
acerca de los ocupantes de los diferentes 
pisos y empieza a dar órdenes, que sus su¬ 
bordinados acatan con efectividad y sin 


Amigo y enemigo del hombre a un mismo tiempo, el fuego y sus devasta¬ 

doras consecuencias producen múltiples tragedias como podemos compro¬ 
bar muy a menudo en las primeras páginas de los diarios. Gradas al valor y 
arrojo de las dotaciones de bomberos no todo está perdido cuando se de- 
clara un incendio. 


ía 27 de febrero. Hora: 10 de 
la mañana. Ignorando la ex- 
■ presa prohibición de su ma- 
V dre, Juan Alonso (un niño de 
8 años, inquilino del segun¬ 
do piso del inmueble siniestrado) estaba ju¬ 


gando con fuego, en sentido literal, concre¬ 
tamente con una caja de cerillas. A las 
10:05 el salón de la vivienda se había con¬ 
vertido en un horno; afortunadamente, el 
pequeño Juan pudo escapar. 

Hora: 10:10. Lugar: Acuartelamiento de 
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discusión, confiando en la experiencia del 
mando. 

Como resultado de esta labor conjunta, 
los primeros chorros de agua lamen las ven¬ 
tanas de las plantas inferiores. Al parecer 
todos los inquilinos están a salvo, en la ca¬ 
lle, excepto un grupo de niños, copados 
por el fuego en el interior de una guardería 
sita casi en la azotea. ¡Una guardería! Rápi¬ 
do, no podemos perder tiempo... que suban 
algunos voluntarios, es preciso salvar a esas 
criaturas —grita el jefe de bomberos. 

Aún a riesgo de perder tu propia vida 
atraviesas la puerta, entrando así en el re¬ 
llano de la escalera. Desde donde te en¬ 
cuentras puedes oír claramente el llanto de 
algún bebé de la guardería. Aunque el in¬ 
cendio está controlado, no ha sido extin¬ 
guido todavía, por eso encuentras voraces 
lenguas de fuego frente a ti. Sólo los reduci¬ 
dos depósitos de agua adheridos a tu es¬ 
palda te permiten traspasar la cortina de 
llamas. Sujetas a uno de los bebés entre tus 
brazos y bajas rápidamente. Ya está a sal¬ 
vo, pero todavía hay otros en peligro... 


Una heroica labor 


Por suerte se trata exclusivamente de un 


relato ficticio, pero su desenlace depende 
directamente de ti ¿Cómo? Muy fácil. Ne¬ 
cesitas tan sólo dos brazos firmes para la 
heroica labor de copiar el listado adjunto. 
Lo demás, un Commodore Ó4 o 128, y un 
joystick conectado al port 2. 

El juego comienza, tras el consabido 
RUN y unos segundos de espera, con una 
representación esquemática del edificio 
donde transcurren los hechos antes descri¬ 
tos. En el piso bajo, a la derecha, vemos la 
figura inmóvil de un bombero que está suje¬ 
to al control del joystick. Si dirigimos el joys¬ 
tick hacia la derecha o hacia la izquierda, 
el personaje se moverá en dicha dirección. 

En la pantalla observamos también la 
presencia de cuatro escaleras situadas en 
los extremos de la misma. Subiendo o ba¬ 
jando por estas escaleras, ¡remos cambian¬ 
do de piso hasta llegar a la guardería. 

Ascender entraña más dificultad que el 
descenso, pues en este último caso basta 
con situar al bombero lo más alejado posi¬ 
ble del centro de la pantalla y empujar del 
joystick hacia abajo. Por el contrario, para 
acceder a una planta más alta es preciso si¬ 
tuar a nuestro personaje ¡unto a la escalera 
y dirigir el joystick hacia arriba. Hasta que 
logremos acostumbrarnos nos costará bas¬ 
tante trabajo dar con el lugar exacto. 

Las llamas, que se han adueñado del 
edificio, se interponen en nuestro camino. 


Dos soluciones para evitar las quemaduras 
del fuego: esquivar las llamas o rociarlas 
con agua. Disponemos de una pequeña re¬ 
serva de agua dentro de los depósitos que 
transporta consigo el bombero, depósitos 
que sólo puede recargar en el lavabo de la 
guardería. Gracias al botón de disparo del 
joystick cabe la posibilidad de apagar las 
llamas. 

Para rescatar a un niño, debemos llegar 
hasta la guardería y descender después, 
con el niño en brazos, hasta el nivel inferior. 
El llanto de éste nos indica cuándo trans¬ 
portamos al niño y cuándo lo hemos deja¬ 
do en brazos de un compañero, sano y sal¬ 
vo. Después de cada rescate, el siguiente, y 
el siguiente... 

En total, son tres los bomberos encarga¬ 
dos de recoger a todos los niños, de forma 
que si uno de ellos perece abrasado, que¬ 
dan los demás. Muertos los tres, la ciudad 
te concederá una mención honorífica si has 
salvado a un cierto número de niños (cinco 
en un principio), en caso contrario nadie re¬ 
cordará tu hazaña. De nuevo, vuelta a em¬ 
pezar. 

El programa está dotado de dificultad 
progresiva,- es decir, conforme rescatemos 
a más y más niños nos resultará más difícil 
salvar a otros (aunque no lo parezca). No 
es nada personal, que conste. 


LISTADO 


10 POKE 53269,0 -053- 

200 FOR J-0 Tü 448:READ A:POKE 12208+J,A:NEXT J 

-253- 

210 FOR J-0 TO 50:READ A:POKE 50000+J,A:NEXT J 

-179- 

220 FOR J-0 TO 200:READ A:POKE 50500+J,A:NEXT J 

-230- 

230 FOR J-0 TO 125:READ A:POKE 51000+J,A:NEXT J 

-233- 

240 FOR J-0 TO 329:READ A:POKE 51500+J,A:NEXT J 

-245- 

250 FOR J-0 TO 194:READ A:POKE 49201+J,A:NEXT J:T-5 

-251- 

500 POKE 53276,255 -211- 

510 POKE 53285,0:POKE 53286,7 -092- 

520 FOR J-l TO 7:POKE 532B7+J,2 : NEXT J -216- 

530 POKE 53287,6:POKE 50549,66 -154- 

540 POKE 2040,196:POKE 2047,195 -187- 

550 FOR J-l TO 6.POKE 2040+J,197+CJ AND 1):NEXT J 

-016- 

560 POKE 2,8:POKE 49180,0.D-B -126- 

570 POKE 53275,126:B-3 -194- 

5000 POKE 53265,PEEKC53265) AND 239:POKE 53281,14-POK 
E 53280,6:PRINT”CCLR3CBLK3";: -062- 

5010 PRINT”CR0N3CGR13C2 ESP3RESCATES: C 16 ESP3B0f1BER0S 
:C4 ESP3”; -130- 

5020 PRINT”CR0N3CNRJ}C13 ESP3CROF3” -125- 

5030 PRINT”CR0N3CNRJ3C2 ESP3CBLK3GUARDERIACNRJ3C2 ESP 
3 CRQF3CBLU3 !BUAA!” -157- 

5040 PRINT”CRON3CNRJ3C13 ESP3 CR0F3” -127- 


5050 PRINT”CR0N3CNRJ}C13 ESP3 CR0F3CBLKX27 P>C3 ARB3 ” 
:FOR N-l TO 2 -074- 

5060 PRINT: PRINTTABC3B) ,, CABJ3CBLK3<BLK> CRON3CCYN3 CRO 
F3” -212- 

5070 PRINTTABC37)"CARB3CBLK3<BLK>CRON3CCYN3C2 ESP3CR0 
F:> ” -173- 

5080 PRINTTABC36)”CARB3CBLK3< BLK> CR0N3 CCYN3C3 ESP3CR0 
F >” -205- 

5090 PRINTTABC35)”CARB3CBLK3<BLK>CR0N3CCYN3C4 ESP3CR0 
F 3” -237- 

5100 PRINT”CARB3CBLK3<34 P><P> CR0N3CCYN3C5 ESP3”; 

-092- 

5110 PRINT”CRON3CCYN3 CR0F3CBLK3!L!” -119- 

5120 PRINT”CR0N3 CCYN3C2 ESP3CR0F3CBLK3!L!” -152- 

5130 PRINT”CR0N3CCYN}C3 ESP3CR0F3CBLK3!L!” -185- 

5140 PRINT”CRON3CCYN3C4 ESP3CR0F3CBLK3¡L!CACL3” 

-116- 

5150 PRINT”CR0N3CCYN3C5 ESP3 CR0F3CBLK3!L!<33 P>CARB3” 
í -086- 

5160 NEXT N -153- 

5165 PRINT”CH0ri3 CGR13CRON3 ”TAB( 12)PEEK(49154) :PRINT”C 
HOf13CGR13CRON3”TABC37)B -033- 

5170 POKE 55895,0:POKE 56295,0 -152- 

5180 PRINT”CHOn>”;:POKE 1623,111:POKE 2023,111 

-048- 

5200 POKE 53262,240:POKE 53263,227 -077- 

5210 FOR J-0 TO 3: POKE 251+J.0.-NEXT J:POKE 49154,0 

-125- 

5220 POKE 49155,33:POKE 49156,2:POKE 49157,21:POKE 49 
158,1 -213- 
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5230 POKE 49159,1:POKE 49160,33 -193- 

5240 POKE 53269,255:POKE 49152,0:POKE 789,192 

-23B- 

5250 FOR N=0 TO 4:POKE 53253+(2*N), 67+CINTCRNDC1)*4)* 
40) -025- 

5260 POKE 53252+C2+N),INTCRNDC1)*256):NEXT N 

-223- 

5270 POKE 53251,227:POKE 53250, INTCRNDC1)*150):POKE 5 

3264,0:0-1 -230- 

5280 POKE 53294,2 -163- 

5900 POKE 53265,PEEKC53265) OR 16:POKE 49152,1 

-028- 

6000 IF PEEKC49154)-1 THEN IF C<>1 THEN GOSUB 6300 

- 100 - 

6010 IF PEEKC49154)-0 THEN C-0:PRINT”CGR1}CHOfl}CRON}” 


TABC12)PEEKC49153) -109- 

6015 P-PEEKC5327B):P-PEEK(53278) -062- 

6020 IF CP AND 1) OR CP AND 128) THEN GOTO 6100 

-059- 

6030 GOTO 6000 -008- 

6100 IF P AND 128 THEN 6200 -203- 

6110 FOR N-l TO 6:IF PEEKC53249+2*N)-PEEKC53263) THEN 
GOSUB 6150 -144- 

6120 NEXT N:GOTO 6000 -239- 

6150 IF P AND C2“N) <> 2~N THEN RETURN -020- 

6160 IF ABSCPEEKC53248+2*N)-PEEKC53262))>40 THEN RETU 
RN -170- 

6170 POKE 53249+C2+N),67+CINTCRNDC1)*5)*40):RETURN 

-040- 

6200 POKE 49152,0:POKE 53294,0:B-B-l -221- 

6210 PRINT”CH0I1}CGR1}CR0N}”TABC37)B -074- 

6220 FOR J-0 TO 100:POKE 53294,0:POKE 53294,2:NEXT J 

-217- 

6230 IF B-0 THEN 19000 -178- 

6240 GOTO 5000 -010- 

6300 C*1:POKE 254,0:D-D-0.2:IF D<1 THEN D-l -145- 

6310 POKE 2,D:POKE 49180,0:RETURN -224- 

19000 POKE 53265,PEEKC53265) AND 239:POKE 53280,2:POK 
E 53281,10 -200- 

19010 PRINT”CCLR}C2 ABJ1C2 ESP!CRON}CHRN}!\¡C3 ESP3<* 


> CROF}CBLK} CHRN} CR0N}¡\!C3 ESP3<*>CR0F}CBLK}C2 ESP! 
CRONKMRN} < *> CROF} C BLK} CRON}CNRN} ! \ ! CROF} CBLK} CR 
ON}CHRN}! \ ! C 3 ESP!<*>CROF}CBLK}C11 ESP3 CHRN} ”; 

-126- 

19020 PRINT”C2 ESP3CR0N}Cf1RN} CROF}¡\! <*>CRON} CROF} 
CBLK} CflRN} CRON} CROF} ! \ ! CBLK} Cf1RN}<*> CRON} CR0F1CB 
LK1C2 ESP 3 CRON}CMRN}C5 ESP3CR0F} CBLK} CRQNKMRN} CRO 
F} ! \ ! CBLK1C2 ESP3 CMRN}< *> CBLK1C 11 ESP3CMRN} ”; 

-075- 

19030 PRINT”C2 ESP 3 CRON}CMRN} CROF}CBLK}C3 ESP3CMRN} 
CBLK} CMRN} CRON} CR0F1CBLK1C3 ESP 3 CRON}CMRN} CROFKB 
LK1C2 ESP3CR0N}CMRN} CROF}<*>CRON} CROF}!\!CRON} CROF 
} CBLK} CR0N}CMRNK2 ESP3<*>CROF}CBLK}C13 ESP3” 

-047- 

19040 PRINT”C2 ESP3CR0N1CMRN} CR0F1CBLK} CR0N1CMRNK3 
ESPDCROF}CBLK} CMRN} CR0N1C5 ESP3CR0F}CBLK}C2 ESP3CR 
ONKMRN} CROF3CBLK3C3 ESP3CRON}CMRN} CROF} CBLK} CRON 
}CnRN}C2 ESP} CROF} ! \ ! CBLK}C 13 ESP3 CÍ1RN} -254- 

19050 PRINT”C2 ESP3 CRON}CMRN} <*>CROF}CBLK} CHRN} CRO 
N} CROF}CBLK} CHRN} CRON} CROF} ! \ ! CBLK} CMRN}< *> CRON} 
CROF}CBLK}C2 ESP3CRON}CHRN} CR0FKBLKK3 ESP3CR0N}CM 
RN} CROF} CBLK} CR0N}CÍ1RN} <*>CR0F}CBLK}C2 ESP3CRQNK 
MRN}!\!CR0F}CBLK}C5 ESP3” -167- 

19060 PRINT”C2 ESP3CMRN}<*> CRON}C3 ESP3CROF}!\!CBLK} 
CHRN} CRON} CROF}CBLK}C3 ESP3CRON}CNRN} CR0F}CBLK}C2 
ESP3CRON}CHRN} CR0F}CBLKK3 ESP3 CRON}CHRN} CROF} CBLK 
} Cf1RN}<*> CRON}C3 ESP3CROF} ! \ ! CBLK}C 11 ESP3CMRN} 

-007- 

19070 PRINT”C2 ABJ}C7 ESP3CMRN1C2 ESP3 CBLK1C2 ESP3CMR 
N} CRON}!\¡C3 ESP3< *> CROF}CBLK}C 2 ESP3CRON}CHRN} CROF 
}CBLK}C3 ESP3 CRON}CNRN} CR0F}CBLK}C2 ESP3CRON}CMRN}!\ 
! C3 ESP3<+> CROF}C2 ESP3CR0N}C4 ESP3<*> CR0FKBLKK2 ES 
P3 **; -139- 

19080 PRINT”C7 ESP3 CHRN3C2 ESP3 CBLK3C2 ESP3CMRN} CRON 
} CR0F3!\!CBLK3 CMRN}<*> CRON} CR0F}CBLK}C2 ESP3CR0N}C 
fIRN} CR0F}CBLK}C3 ESP3 CRON} CHRN} CR0FKBLKH2 ESP3CR0 
N}CriRN} CROF} ! \ ! CBLK}C2 ESP3CMRN}<*>CBLK}C2 ESP3CR0N} 
CHRN} CROF}!\!CBLK} CMRN}<*>”; -059- 

19090 PRINT”CRON} CR0F}CBLK}C2 ESP3”; -195- 


19100 PRINT”C7 ESP3 CMRN}C2 ESP3 CBLK1C2 ESP3CMRN} CRON 
} CR0F}CBLK}C3 ESP 3 CRON} CI1RN} CR0F}CBLK}C2 ESP3CR0N}C 
MRN} CR0F}CBLK}C3 ESP3CRON}CMRN} CR0F}CBLK}C2 ESP3CR0 
N}CMRN}C2 ESP3< + >CR0F} CBLK}C4 ESP3 CRON}CMRN} CROF}CBL 


K}C2 ESP3 CRON}CMRN}!\i”; -145- 

19110 PRINT”CROF}!\!CBLK1C2 ESP3”; -051- 

19120 PRINT”C7 ESP3CMRNH2 ESP3 CBLK1C2 ESP3CHRN} CRON 
} CR0F1CBLK1C3 ESP 3 CRONlCflRN} CROF} CBLK3C2 ESP3CR0N}C 
dRN} CR0F}CBLK}C3 ESP3CRON}CHRN} CR0F}CBLK}C2 ESP3CR0 
N}CdRN}C2 ESP3CR0F}!\¡CBLK}C4 ESP3CRON}CMRN}C4 ESP3CR 
0F}CBLK}C2 ESP3”; -109- 

19130 RRINT”CnRN} M ; -223- 

19140 PRINT”C7 ESP3 CHRN1C2 ESP3 CBLK1C2 ESP3 CflRN} CRON 
} <*> CR0F1CBLK} CRON}CMRN}!\! CR0F}CBLK}C2 ESP3CR0N}C 
fIRN} <*> CROF}CBLK} CRON}CMRN} ! \ ! CR0F}CBLKK2 ESP3CR0 
N}CMRN} <*>CR0F}CBLK}C2 ESP3CRON}CMRN}!\!CR0F}CBLK}C2 
ESP3CRON}CHRN} CROF}!\! -032- 

19150 PRINT”<*> CRON}<*> CROF}CBLK}C2 ESP3”; -094- 

19160 PRINT”C7 ESP3 CMRN1C2 ESP3 CBLK1C2 ESP3 CflRN} <*>C 
RON}C3 ESP3CR0F} ! \ ! CBLKK2 ESP3 CNRN}<+> CRON}C3 ESP3CR 
OF} ! \ ! CBLK}C2 ESP3 Cf1RN}< *> CRON }í 3 ESP3 CROF} ! \ ! CBLKK2 
ESP3CRON}CflRN} CR0F}CBLK}C2 ESP3CHRN} CRON} CROFKBL 
K} CBLK}” -076- 

19170 POKE 53264,2 -211- 

19180 POKE 53250,40:POKE 53251,135:POKE 53252,50:POKE 
53253,70 -136- 

19190 POKE 53254,110:POKE 53255,94:POKE 53256,14B 

-177- 

19200 POKE 53257,B5:POKE 53258,132:POKE 53259,152 

-177- 

19210 POKE 53260,177:POKE 53261,150 -131- 

19220 POKE 53262,164:POKE 53263,200:POKE 53294,2:POKE 
53269,254 -199- 

19230 POKE 2047,194:P-PEEKC49153):IF P<-T THEN 19300 

-186- 

19240 PRINT”CBLK}CABJ} CRON1C10 ESP3MENCI0N HONORIFIC 
AC10 ESP3CR0F}” -225- 

19250 T“P:PRINT”CBLU1C4 ABJ1CR0N}”TABC9)T”CIZQ}C2 ESP 
3PERS0NAS SALUADAS ” -082- 

19300 POKE 53265,PEEKC53265) OR 16 -096- 

19310 FOR N-0 TO 250:SYS 50000:FOR J-l TO 10:NEXT J,N 
:GOTO 500 -106- 

20000 DATA 0,60,0,0,252,0,0,255,0,0,213,0,0,212,0,0 

-182- 

20010 DATA 168,0,0,168.0,0,152,0,0,152,0,0,153,92,0,1 
64 -158- 

20020 DATA 0,0,168,0,0,252,0,0,168,0,0,106,0,0,154,12 
B -101- 

20030 DATA 2,166,144,2,129,80,1,65,64,1,80,0,1,80,0,0 

-073- 

20040 DATA 0,240,0,3,240,0,3,252,0,3,84,0,3,80,0,2 

-155- 

20050 DATA 160,0,2,160,0,2,96,0,2,96,0,2,101,112,2,14 
4 -106- 
20060 DATA 0,2,160,0,3,240,0,106,160,0,106,160,0,90,1 
60,0 -244- 

20070 DATA 66,128,0,66,128,0,1,128,0,1,80,0,1,80,0,0 

-019- 

20080 DATA 0,60,0,0,63,0,0,255,0,0,87,0,0,23,0,0 

-055- 

20090 DATA 42,0,0,42,0,0,3B,0,0,38,0,53,102,0,0,26 

-158- 

20100 DATA 0,0,42,0,0,63,0,0,42,0,0,169,0,2,166,0 

- 101 - 

20110 DATA 6,154,128,5,66,128,1,65,64,0,5,64,0,5,64,0 

-093- 

20120 DATA 0,15,0,0,15,192,0,63,192,0,21,192,0,5,192, 
0 - 112 - 
20130 DATA 10,128,0,10,128,0,9,128,0,9,128,13,89,128, 
0,6 -234- 

20140 DATA 128,0,10,128,0,15,192,0,10,169,0,10,169,0, 
10,165 -109- 

20150 DATA 0,2,129,0,2,129,0,2,64,0,5,64,0,5,64,0 

-124- 

20160 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -231- 

20170 DATA 0,0,0,6,0,0,42,0,1,169,128,42,154,168,0,16 
9 -127- 

20180 DATA 128,0,42,0,0,2,0,0,0,0,0,0,0,0,0,0 

-140- 
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20190 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -234- 
20200 DATA 0,0,0,0,0,0,0,0,0,2,129,0,2,160,0,0 

-104- 

20210 DATA 169,0,0,170,0,0,170,0,0,174,0,2,174,129,2, 
170 -209- 
20220 DATA 129,2,170,160,2,170,160,2,196,160,2,197,14 

4.10.175.209 -172- 
20230 DATA 10,239,64,10,191,64,10,195,0,6,190,0,1,90, 
0,0 -219- 
20240 DATA 0,0,0,0,0,0,0,2,0,0,9,0,0,9,0,0 -249- 
20250 DATA 40,0,0,40,0,0,40,0,0,42,0,0,170,129,2,170 

-246- 

20260 DATA 129,2,170,160,2,170,160,2,196,160,2,197,14 

4.10.191.209 -174- 
20270 DATA 10,255,64,10,251,64,11,235,129,7,254,0,1,9 
9,0,0 -077- 
20200 DATA 70 -197- 
21000 DATA 166,251,232,134,251,224,15,240,1,96,173,24 

9.7.201.197.200 -000- 
21010 DATA 7,169,190,160,197,76,100,195,169,197,160,1 
90,141,249,7,140 -179- 
21020 DATA 250,7,141,251,7,140,252,7,141,253,7,140,25 
4,7,162,0 -010- 
21030 DATA 134,251,96 -071- 
30000 DATA 173,0,220,201,119,200,40,173,16,200,41,120 
,201,120,240,29 -063- 
30010 DATA 174,14,200,224,254,200,0,173,16,200,9,120, 
141,16,200,232 -032- 
30020 DATA 232,234,142,14,200,32,179,197,96,234,234,2 

34.234.174.14.200 -190- 
30030 DATA 224,62,200,235,76,56,199,173,0,220,201,123 
,200,113,173,16 -076- 
30040 DATA 200,41,120,201,120,200,27,174,14,200,224,0 
,200,0,173,16 -231- 
30050 DATA 200,41,127,141,16,200,202,202,234,142,14,2 
00,32,211,197,96 -110- 
30060 DATA 234,234,174,14,200,224,22,200,237,234,234, 

234.96.234.96.166 -197- 
30070 DATA 252,232,134,252,224,5,240,1,96,162,0,134,2 

52,174,255,7 -101- 
30000 DATA 224,192,240,5,162,192,76,207,197,162,193,1 

42.255.7.96.166 -112- 
30090 DATA 252,232,134,252,224,5,240,1,96,162,0,134,2 

52.174.255.7 -103- 
30100 DATA 224,194,240,5,162,194,76,239,197,162,195,1 
42,255,7,96,173 -114- 
30110 DATA 0,220,41,16,201,0,240,1,96,166,253,224,1,2 
00,5,162 -212- 
30120 DATA 0,76,10,190,162,1,134,253,96 -107- 
40000 DATA 166,253,224,1,240,9,173,21,200,41,254,141, 

21.200.96.166 -232- 
40010 DATA 254,224,255', 200,7, 162,0, 134,253,76,62,199, 
173,16,200,41 -247- 
40020 DATA 120,201,-120,240,240,162,20,232,232,224,112 
,240,0,236,14,200 -150- 
40030 DATA 200,245,76,77,199,162,232,232,232,224,254, 
240,0,236,14,200 ' -145- 
40040 DATA 200,245,76,77,199,166,254,232,134,254,173, 

14.200.174.255.7 -164- 
40050 DATA 224,192,200,6,24,105,20,76,164,199,224,193 
,240,246,224,194 -145- 
40060 DATA 200,6,56,233,20,76,164,199,224,195,240,246 
,141,0,200,173 -044- 
40070 DATA 15,200,141,1,200,173,21,200,9,1,Í41,21,200 
,96 -246- 
50000 DATA 173,0,220,201,126,200,^55, 174,14,200,172,15 
,200,173,16,200 -067- 


50010 DATA 41,120,201,120,240,20,192,227,200,0 224 62 
,200,3,32,174 -225- 

50020 DATA 201,96,192,147,240,244,96,234,234 234 192 
107,200,0,224,26 -151- 

50030 DATA 200,3,32,224,201,96,192,107,240 244 96 234 
,234,234,173,0 ’ -¿ 27 - 

50040 DATA 220,201,125,240,1,96,174,14,200 172 15 200 
,173,16,200,41 ’ - 010 - 

50050 DATA 120,201,120.240,20,192,107,200,0,224 22 20 
0,3,32,10,202 -226- 

50060 DATA 96,192,107,240,244,96,234,234,234,192 147 
200,0,224,66,200 -150- 

50070 DATA 3,32,60,202,96,192,67,240,244,96,234 234 2 

34.234.234.234 -049- 

50090 DATA 234,234,162,0,206,14,200,206,15,200 130 41 
, 2 , 201 , 2,200 -167- 
50090 DATA 5,169,194,76,196,201,169,195,141,255,7,130 
,162,0,160,0 - 211 - 
50100 DATA 200,192,255,200,251,232,224,20,200,244 170 
,232,224,40,200,212 -255- 

50110 DATA 96,234,234,234,162,0,230,14,200,206,15 200 
,130,41,2,201 -226- 

50120 DATA 2,200,5,169,192,76,246,201,169,193,141 255 
,7,130,162,0 -202- 

50130 DATA 160,0,200,192,255,200,251,232,224,20 200 2 
44,170,232,224,40 -154- 

50140 DATA 200,212,96,234,234,234,162,0,230,14,200 23 
0,15,200,130,41 -004- 

50150 DATA 2,201,2,200,5,169,192,76,40,202,169,193,14 
1,255,7,130 _i 4 g_ 

50160 DATA 162,0,160,0,200,192,255,200,251,232 224 20 
,200,244,170,232 -106- 

50170 DATA 224,40,209,212,96,234,234,234,162 0 206 14 
,200,230,15,200 -077- 

50100 DATA 130,41,2,201,2,200,5,169,194,76,90,202,169 
,195,141,255 -204- 

50190 DATA 7,130,162,0,160,0,200,192,255,200,251,232 
224,20,200,244 -017- 

50200 DATA 170,232,224,40,200,212,96,234,234,234 

-113- 

60000 DATA 173,0,192,201,1.240,3,76,49,234,32,00,195, 
32,60,197 _043_ 

60010 DATA 32,56,199,32,44,201,234,234,234,234,234,23 

4.234.234.234.234 -170- 
60020 DATA 234,234,234,234,234,234,234,234,234,234 23 

4.234.234.234.234.234 - 110 - 

60030 DATA 234,234,234,234,234,234,234,174,14,209,172 
,15,200,224,126,200 - 022 - 

60040 DATA 27,192,67,200,20,169,1,141,2,192,16? 0 169 
,32,157,94 - 033 - 

60050 DATA 4,232,224,6,200,240,174,14,200,76,109,192 
224,66,200,249 -061- 

60060 DATA 192,227,200,245,173,16,200,41,120,201,120 
200,236,173,2,192 -190- 

60070 DATA 201,1,200,229,169,0,141,2,192,230 1,192 16 
2,0,109,3 -034- 

60000 DATA 192,157,94,4,232,224,6,200,245,234,234 234 
,174,20,192,232 - 100 - 

60090 DATA 142,20,192,220,2,240,3,76,49,234,162 0 142 
,20,192,230 -151- 

60100 DATA 2,200,230,4.200,230,4,200,230,6,200,230,6, 

200,206,0 _ 0 Ljgl 

60110 DATA 200,206,10,200,206,10,200,206,12 200 206 1 

2,200,206,12,200 - 101 - 
60120 DATA 76,49,234 -030- 


READY. 


-173- 
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SOFTWARE S 


Un freo como 
debe ser 

Cómo saber el tamaño real de los programas en BASIC 


El C-64 es un ordenador muy flexible para introducir rutinas propias del 

usuario, interceptando a las ya existentes. Un ejemplo analizado amplia¬ 

mente con anterioridad es la intercepción de la rutina IRQ. Pero, como com¬ 
probaremos este mes, existen muchas otras rutinas a nuestra disposición. 


eguro que alguna vez has 
sentido curiosidad por saber 
exactamente el tamaño de 
__tus programas BASIC. El co- 
mando FRE (), nos puede 
orientar ligeramente, ya que su resultado 
no es el tamaño del programa BASIC, sino 



la cantidad de memoria libre para éste; 
además, si hemos utilizado variables, éstas 
restarán espacio al BASIC, por si fuera po¬ 
co, deberemos conocer con anterioridad el 
total de memoria libre para poder efectuar 
la resta y por último, si la cantidad de me¬ 
moria libre supera cierta cantidad, el resul¬ 


tado de FRE() será un número negativo 
complementario. Total: esta función no nos 
sirve para nuestro propósito. 

Para conocer el tamaño en bytes de un 
programa BASIC, deberemos acudir a los 
punteros de inicio del BASIC (43-44 deci¬ 
mal), y al de final del mismo (45-46 deci¬ 
mal), quedando el cálculo como sigue: 
Programa=256*(PEEK(46)-PEEK(44))+ 
(PEEK(45)-PEEK(43)). 

Liosillo ¿no? Para eso, hemos creado el 
programa del listado adjunto, que se en¬ 
carga de efectuar el engorroso cálculo ca¬ 
da vez que pulsamos RETURN a una línea 
de programa (o a cualquier entrada). 
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SOFTWARE [El 


Su uso es muy sencillo, y opera de una 
manera análoga al iFuera Errores!, por lo 
cual, ambos programas son incompatibles. 
Tecleemos el programa del listado y grabé¬ 
moslo antes de ejecutarlo. Cuando esté lis¬ 
to, pulsemos RUN y veremos aparecer unos 
mensajes en la pantalla sobre su uso; a par¬ 
tir de ahí, cada vez que pulsemos RETURN, 
el cálculo antes mencionado se efectuará 


automáticamente y aparecerá en la esqui¬ 
na superior izquierda de la pantalla (¡como 
en el Fuera Errores!), un mensaje en reverso 
indicando la cantidad en bytes que ocupa 
el programa en memoria. 

Como el cálculo se efectúa antes del RE¬ 
TURN, cuando terminemos de teclear el 
programa del que queramos saber su lon¬ 
gitud en bytes, deberemos pulsar un RE¬ 


TURN «en vacío», con lo que aparecerá el 
número correcto, incluida la última línea in¬ 
troducida. Así pues, para averiguar la longi¬ 
tud de un programa no tecleado en el mo¬ 
mento, lo único que hay que hacer es car¬ 
garlo, y pulsar RETURN. 

Funcionamiento 


El programa BASIC no es más que un 
cargador del código máquina necesario 
para su funcionamiento, que se ubicará en 
la tan socorrida área de memoria del buffer 
del casete, por lo que, si utilizamos este pe¬ 
riférico para la carga de programas, debe¬ 
remos atender a las indicaciones que apa¬ 
recen siempre en nuestra revista, USO DEL 
CASETE CON FUERA ERRORES, teniendo 
en cuenta que el código máquina ocupa 
desde la posición 822 hasta la 944. Los 
usuarios de disco no tendrán este proble¬ 
ma. Insistimos en que todo lo anterior, es só¬ 
lo para saber la longitud de programas no 
tecleados, y no influirá para nada en los 
programas que se vayan tecleando, que es 
para lo que ha sido diseñado el programa 
fundamentalmente. 

Como el íFuera Errores!, este programa 
intercepta el vector de la rutina CHRIN (en¬ 
trada de caracteres), desviándola provisio¬ 
nalmente para detectar la pulsación de la 
tecla RETURN, y efectuar el cálculo consa¬ 
bido. El puntero de este vector se encuentra 
en las posiciones de memoria hexadecimal 
$0324-$0325 (804-805 decimal), y lo pri¬ 
mero que hace el programa de código má¬ 
quina es cambiar estos valores, para dirigir 
la entrada de caracteres a nuestra propia 
rutina, y después continuar normalmente. 

Por último, y para un mejor entendimien¬ 
to de la rutina, podemos recurrir al listado 
en ensamblador que se adjunta, cuyos co¬ 
mentarios al final de cada línea irán escla¬ 
reciendo los distinfos aspectos de su funcio¬ 
namiento. 
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SOFTWARE H 


DIREC 

HEX8 . 


nNEMO. 

CCriENT8R I □ 

,0336 

89 

03 


LD8 

#$03 ¡Cargamos el acumulador con el byte alto de la nueva 

rutina 






,0338 

8D 

25 

03 

ST8 

$0325¡y lo colocamos en la dirección del vector Caito) 

, 033B 

89 

41 


LD8 

#$41 

Cargamos el acumulador con el byte bajo de la nueva 

rutina 






,0330 

8D 

24 

03 

ST8 

$0324 

y lo colocamos en la dirección del vector Cbajo) 

,0340 

60 



RTS 


Uolvemos con la rutina CHRIN cambiada 

,0341 

20 

57 

F1 

J5R 

$F157 

Llamada a la rutina CHRIN 

,0344 

B5 

FB 


ST8 

$FB 

Guardamos el 8cumulador, 

,0346 

86 

FC 


STX 

$FC 

el registro X, 

,0348 

B4 

FD 


STY 

$FD 

el registro Y 

,0348 

08 



PHP 


y el registro de estado 

, 034B 

C9 

OD 


CMP 

#$0D 

Comparamos con 13 CRETURN) 

, 034D 

F0 

08 


BEQ 

$0357 

si RETURN vamos a $0357 

, 034F 

85 

FB 


LD8 

$FB 

Recuperamos el 8cumulador, 

,0351 

86 

FC 


LDX 

$FC 

el registro X, 

,0353 

84 

FD 


LDY 

$FD 

el registro Y 

,0355 

28 



PLP 


y el registro de estado 

,0356 

60 



RT5 


Uolvemos al B8SIC 

,0357 

89 

OD 


LD8 

#$0D 

Imprimimos 

,0358 

20 

D2 

FF 

JSR 

$FFD2 

un RETURN Ctodavia no se ha hecho con la rutina 

interceptada) 




, 035C 

85 

D6 


LD8 

$D6 

Guardamos la posición del cursor en la linea 

, 035E 

BD 

BO 

03 

ST8 

$03B0; 

;en la dirección $03B0 

,0361 

CE 

BO 

03 

DEC 

$03B0¡Decrementamos en una unidad la posición del cursor (el 

RETURN no cuenta) 



,0364 

89 

00 


LD8 

#$00 

Desactivamos el 

,0366 

85 

DB 


ST8 

$DB 

modo inserción por si acaso estuviese activado 

,0368 

89 

12 


LD8 

#$12 

Imprimimos 

,0368 

20 

D2 

FF 

J5R 

$FFD2 

Reverse ON 

, 036D 

89 

13 


LD8 

#$13 

Imprimimos 

, 036F 

20 

D2 

FF 

JSR 

$FFD2 

HOME 

,0372 

89 

2D 


LD8 

#$2D 

Imprimimos 

,0374 

20 

D2 

FF 

JSR 

$FFD2 

un 

,0377 

85 

2D 


LD8 

$2D 

Calculamos la diferencia 

,0378 

3B 



SEC 


de los bytes bajos de inicio 

,0378 

E5 

2B 


SBC 

$2B 

y final del B8SIC 

, 037C 

88 



T8X 


Traspasamos el contenido al registro X 

, 037D 

85 

2E 


LD8 

$2E 

Calculamos la diferencia 

, 037F 

38 



SEC 


de los bytes altos de inicio 

,0380 

E5 

2C 


SBC 

$2C 

y final del B85IC 

, 03B2 

20 

CD 

BD 

JSR 

$BDCD 

Llamamos a la rutina $BDCD que transforma el contenido 

del 8cumulador 

y del reg: 

LStro X en un entero de dos bytes (imprime la cantidad 

en bytes 

del programa en 

memoria) 

,0385 

89 

20 


LD8 

#$20 ; 

;Imprimimos 

,0387 

20 

D2 

FF 

JSR 

$FFD2 

¡ un ” ” 

,0388 

89 

42 


LD8 

#$42 ; 

i Imprimimos 

, 03BC 

20 

D2 

FF 

JSR 

$FFD2;una ”B” 

, 03BF 

89 

59 


LD8 

#$59 j 

i Imprimimos 

,0381 

20 

D2 

FF 

JSR 

$FFD2¡una ”Y” 

,0384 

89 

54 


LD8 

#$54 ¡ 

;Imprimimos 

,0386 

20 

D2 

FF 

JSR 

$FFD2 

¡una ”T” 

,0338 

89 

45 


LD8 

#$45 ; 

;Imprimimos 

, 039B 

20 

D2 

FF 

JSR 

$FFD2¡una ”E” 

, 039E 

89 

53 


LD8 

#$53 ; 

i Imprimimos 

,0380 

20 

D2 

FF 

JSR 

$FFD2;una "S" 

,0383 

89 

2D 


LD8 1 #$2D ¡ 

;Imprimimos 

,0385 

20 

D2 

FF 

JSR 

$FFD2¡un 

,0388 

8D 

BO 

03 

LD8 

$03B0; 

;Recogemos la posición del cursor 

, 038B 

85 

D6 


ST8 

$D6 

¡La colocamos en su registro, para volver a la posición 

inicial i 

; antes 

de ir a HGI1E para escribir los bytes) 

, 038D 

4C 

4F 

03 

jnp 

$034F¡Continuamos con el resto de la rutina. 
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EQUIPOS 


Digi-uiew 6a 



La revolución de este siglo la protagoniza sin duda la evolución tecnoló¬ 

gica de la información y l as comunicaciones. A h ora esa revolución se nos 
«cuela» en casa a través de distintos dispositivos conectadles a nuestro hu- 

milde «home Computer». Si poseemos un C64, ya podemos tener nuestro di- 

gitalizador de imágenes. 


omencemos por lo casi evi¬ 
dente: 

IMAGEN: Representación 
de alguna .cosa en pintura, 
escultura, dibujo, fotografía, 
etc. 

Esta definición de imagen, o alguna pa¬ 
recida, es la que encontraremos en el dic¬ 
cionario. No obstante, actualmente se nos 
antoja algo obsoleta, ya que sin duda esta 
palabra nos evoca otras cosas como: tele¬ 
visión, informática, satélite, etc. Desde lue¬ 
go, el tratamiento de la imagen ha contri¬ 
buido en gran medida a la revolución tec¬ 
nológica que mencionábamos al principio 
del artículo, este tratamiento va, hoy día, li¬ 


gado íntimamente con la Informática y, lo 
que hace pocos años era privilegio exclusi¬ 
vo de unos pocos, hoy está al alcance de 
todos, gracias a la evolución de la Informá¬ 
tica del hogar. 

El video-digitalizador de la casa PRINT 
TECHNIK que este mes vamos a ver en 
nuestra sección de equipos, nos abre las 
puertas de un mundo fascinante, que ahora 
podemos disfrutar en nuestro C-Ó4: la digi- 
talización de cualquier imagen, en la pan¬ 
talla de nuestro ordenador. 

La digitalización de la imagen es el pro¬ 
ceso por el cual la señal proveniente de 
una fuente de captación, es convertida en 
una matriz de puntos representable por el 


ordenador. En el caso del digitalizador de 
imagen PRINT TECHNIK, la fuente de cap¬ 
tación es una cámara de video del tipo 
blanco y negro, y el ordenador requerido 
es un C64 (o C128 en modo 64). Adelanta¬ 
remos ya que también existe un modelo 
destinado al Amiga, que comentaremos en 
un próximo número. 


El software 


Como es norma habitual en muchos 
equipos, éstos vienen acompañados de un 
paquete de software específico, que ges¬ 
tiona su buen funcionamiento. El PRINT 
TECHNIK no es una excepción y necesita 
de ciertos programas. Estos son de una 
gran calidad y están diseñados con clari¬ 
dad para hacer que el usuario sólo se con¬ 
centre en la digitalización, en vez de hacer¬ 
lo en el teclado del ordenador. 

Los programas se presentan en dos ver- 
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EQUIPOS 


siones: cinta o disco. Como la unidad de 
disco 1541 no es precisamente un prodigio 
de velocidad, la versión disco, incluye en su 
directorio un «turbo», que el usuario no tie¬ 
ne que preocuparse de cargar, ya que 
cuando desde cualquier módulo del pro¬ 
grama se necesite cargar algo del disco (in¬ 
cluido el programa principal), el «turbo» se 
activará automáticamente, incluso en la 
carga de imágenes grabadas. 

Actualmente, los programas conducidos 
por menú, hacen un buen uso de los ¡conos 
(figuras alusivas a la tarea que realizan), y 
el PRINT TECHNIK no es una excepción. En 
la pantalla principal, aparece un menú con 
todas las opiniones que necesitaremos pa¬ 
ra llevar a cabo nuestra labor. 


Resultados 


Para digitalizar la imagen que desee¬ 
mos, iluminaremos bien la persona o el ob¬ 
jeto elegido, enfocaremos la cámara y lle¬ 
varemos el cursor al ¡cono «digitize». Al ca¬ 
bo de unos cinco segundos, en los que la 
pantalla se quedará «en blanco», volverá a 
aparecer el menú, y ¡ya está!, si, pero... 
¿dónde? Muy sencillo, si somos de ese tipo 
de personas que tienen curiosidad por ver lo 
que ha hecho, situemos el cursor sobre el 
¡cono «view» y podremos apreciar el resul¬ 
tado. 

¿Cómo que «qué cursor»? Bien, nos olvi¬ 
dábamos de decir que el paso de una op¬ 
ción a otra se realiza con las teclas de cur¬ 
sor, y que las opciones elegidas parpa¬ 
dean constantemente. 

Ahora ya tenemos ante nosotros una 
imagen de nosotros mismos (no es muy ori¬ 
ginal de nuestra parte); pero, parece que 
no nos colocamos bien delante de la cá¬ 
mara y la oreja derecha no ha salido en la 
imagen. 

No importa. Hemos de saber que la digi- 
talización se ha efectuado «de sobra», y 
podremos desplazar la imagen en cual¬ 
quier dirección, con las familiares teclas de 
cursor, o ver la imagen que parte de la es¬ 
quina superior izquierda con la tecla 
SHIFT+CLR/HOME. Esto es posible ya que 
una digitalización forma un cuadrado de 
256x250 puntos, y como en la pantalla mul¬ 
ticolor del C64 caben sólo 160x200, tene¬ 
mos el márgen restante para un correcto 
centrado. 

Además de poder trasladar la imagen 
arriba, abajo, a izquierda y a derecha, tam¬ 
bién podremos cambiar los cuatro colores 
por los que está formada, a saber: blanco, 
negro, gris 1 y gris 2. A tal fin, deberemos 
utilizar las cuatro teclas de función F1, F3, F5 
y F7, que alteran cada una su color corres¬ 
pondiente, incrementando el valor del co¬ 
lor a cada pulsación. Si por el contrario, 
preferimos decrementar los colores, debe¬ 


remos utilizar SHIFT-I- la tecla de función. 

Tras ensayar con una increíble cantidad 
de combinaciones, lo más normal es que 
nos demos por vencidos y decidamos que 
los colores originales estaban mejor que los 
nuestros (la cara verde no nos favorece na¬ 
da). Bien, no hay que tirar el ordenador, ni 
tan siquiera apagarlo y volver a empezar, 
basta con pulsar la tecla £ (PFOUND para 
los amigos alemanes), y todo volverá a sus 
hermosas gradaciones de gris originales. 


Una vez que obtenemos la imagen co¬ 
rrecta, lo primero que tenemos que hacer es 
grabarla. Para ello, el PRINT TECHNIK nos 
brinda tres opciones «SAVE»: 

— La normal sirve para grabar los 
256x256 puntos originales en formato 
«PRINT TECHNIK». 

— La segunda grabará la imagen que 
haya en la pantalla en ese momento 
(160x200 puntos), bajo el formato utilizable 
por el programa gráfico KOALA. 
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— Por último, la tercera cumplirá una 
función similar a la anterior, pero bajo el 
formato PAINT MAGIC. 

Estas dos últimas opciones, son muy inte¬ 
resantes para dar los últimos retoques a la 
imagen final, si disponemos de cualquiera 
de los dos programas citados. También es 
posible retocar la imagen con un lápiz ópti¬ 
co (opción «lightpen»), para lo cual debe¬ 
remos disponer de una rutina especial de 


manejo de este dispositivo (no suministra¬ 
da). 

Por el contrario, para visualizar cualquier 
imagen grabada en disco, disponemos de 
la opción «load» que, lógicamente, sólo 
carga las imágenes grabadas en formato 
PRINT TECHNIK, es decir, con 256x256 
puntos. Como programas separados, exis¬ 
ten en el directorio tres, que son los siguien- 


ALARM: Sirve para comparar dos imáge¬ 
nes, extrayendo finalmente un resultado nu¬ 
mérico de las diferencias entre ambas. Soli¬ 
cita un número inicial de comparación, que 
no debe ser superior a 5000 para que las 
diferencias computadas no sean excesivas. 

VIDEO DIASHOW: Este programa se 
emplea para visualizar una a una, en un bu¬ 
cle sin fin, todas las imágenes contenidas 
en un disco con formato KOALA. El tiempo 
de visualización en segundos para cada 
imagen, se nos pide al principio. 

VIEW: Es un programa que sirve por sí so¬ 
lo (como los anteriores), para visualizar una 
imagen grabada con formato KOALA en 
pantalla. 

Todos los programas anteriores, dispo¬ 
nen de un menú que incluye entre otras las 
opciones: Load, Save, Print, View... 


Imprimiendo 

Para obtener una copia impresa de 
nuestro trabajo, disponemos de varias ayu¬ 
das en el menú. Lo primero que debemos 
hacer es seleccionar por dónde saldrá la 
información para la impresora, para lo cual 
existen dos opciones: la «serial IEC», que es 
la normal de Commodore y la más rápida; 
y la «userport», que al ser paralelo dará 
más velocidad a la impresión. Para utilizar 
una impresora de este tipo, habrá que car¬ 
gar previamente una rutina de manejo del 
«userport» (no suministrada). 

El tipo de impresora conectada al orde¬ 
nador será indicado entre las siguientes: 

— Impresoras Commodore: 1515, 1525, 
801,803, 1526 y 802). 

— Impresoras no Commodore: GP- 
700A, Epson, Okimate 20 y User (ver op¬ 
ción «userport»). 

Una vez seleccionado el periférico, im¬ 
primiremos la imagen en memoria con la 
opción del ¡cono «print», o simplemente 
pulsando «P». La calidad de la misma una 
vez impresa es mejor aún que la de la pan¬ 
talla (a nuestro parecer), y puede mejorar 
aún más con impresoras en color o selec¬ 
cionando la opción «16 colours», que se 
traduce en impresión de colores en las im¬ 
presoras que lo soporten, y en 16 entrama¬ 
dos de puntos que dan, tanto en pantalla 
como en impresora, ló tonalidades dife¬ 
rentes de grises. Esta modalidad, ocupará 
en disco exactamente el doble que la de 
cuatro colores (de 65 bloques a 135 blo¬ 
ques). 

No obstante, obviamente, la calidad de 
la imagen final dependerá de varios facto¬ 
res, entre los que se cuentan la perfecta ilu¬ 
minación del objeto (brillos, sombras, etc.), 
la calidad de la cámara empleada y la de 
la impresora utilizada. 
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Hardware 

El equipo consiste en un cartucho conec- 
table al port del usuario, con una toma pa¬ 
ra la videocámara y tres potenciómetros 
ajustables con destornillador que son: 

KONTRAST: Ajustamos el contraste de la 
imagen. 

BILD BREITE: Con el que se ajusta el brillo 
de la imagen. 

HELLIGKEIT: Ajustamos con él la luminosi¬ 


dad del blanco de la imagen. 

Aparte de las funciones propias del digi- 
talizador, cuenta también con dos opcio¬ 
nes generales, una de ellas (director/) nos 
permite ver el directorio de un disco sin es¬ 
tropear el programa de la memoria, y la 
otra (exit BASIC), nos permite abandonar el 
programa, quedando la memoria de BA¬ 
SIC estructurada con la imagen desde 
$2000 hasta $4000. 

En resumen, el producto nos ha parecido 


simplemente excelente, y se suministra con 
sus instrucciones oportunamente traduci¬ 
das al castellano (Gracias...) 


Nombre: Digi-View 64 (PRINT TECHNIK) 
Precio: 42.000 ptas. (IVA incluido) 
Distribuidor: COMPULOGICAL, S.A. 

Sta. Cruz de Marcenado, 31 
Tel.: (91) 241 10 63 
28015 MADRID 




Duque de Sesto, 50 — 28009-MADRID. Metro O’Donnell o Goya. 
Tel.: (91) 274 75 02-(91) 275 9616 


SOFTWARE: POR CADA DOS PROGRAMAS, GRATIS A ELEGIR: 

- CASCOS STEREO 

- RELOJ DIGITAL + BOLIGRAFO LACADO 

- CALCULADORA EXTRAPLANA 


COMPATIBLE PC-IBM 640 K + 2 BOCAS + MONITOR 149.900 PTAS. 

COMMODORE 1 28 + SOFTWARE DE REGALO 54.900 PTAS. 

COMMODORE 1 28 + TECLADO MUSICAL + SOFT REGALO 57.900 PTAS. 


FISTII. 

. 875 ARMYMOVES. 

875 

ACE OF ACES. 

1.200 

DEE STRIKE. 

. 875 BREAKTHRU . 

875 

IMPOSSABALL. 

875 

SUPER SOCCER. 

. 875 MILLION III. 

.1.750 

SIGMA 7. 

875 

TERRA CREST. 

. 875 XEVIOUS. 

875 

BAZZOKA BILL. 

875 

DOUBLE TAKE. 

. 875 10THFRAME. 

1.200 

DRAGON’S LAIR II. 

875 

SHORT CIRCUIT. 

. 875 LEADERBOARD. 

1.200 

SHADOW SKIMMER. 

875 

GAUNTLET. 

. 875 EXPRESS RAIDER. 

875 

¡¡NOVEDADES KONAMI 1.850 PTAS.!! 

IMPRESORAS 20% DTO. SOBRE P.V.P. 

¡¡OFERTAS JOYSTICKÜ QUICK SHOT II TURBO 

2.795 PTAS. 

CADENA MUSICAL 

27.900 PTAS. 


QUICK SHOT IX 

1.995 PTAS. 

VIDEO VHS AKAI 

79.900 PTAS. 

QUICK SHOT II 

1.495 PTAS. KONIX (microswitch) 

2.595 PTAS. 

RADIOCASSETTE STEREO 

6.895 PTAS. 


DISKETTE 5 1 /4" DC/DD 190 PTAS. 

CINTA C-l 5 ESPEC. 69 PTAS. 

RATON PARA PANTALLA 6.900 PTAS. 

SPECTRUM PLUS + CASCOS MUSICA STEREO 19.800 PTAS. INC. IVA 
SANYO MSX 64 K 28.900 PTAS. 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. 

LLAMA POR TELEFONO. ADELANTAS TRES DIAS TU PEDIDO. 
TEL.: (91) 274 75 02 - (91) 275 96 1 6 (DURANTE LAS 24 HORAS). 
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BASES DEL CONCURSO 


- : IHUÍ Los programas remitidos al concurso de 
berán ser creación original del autor o autores, y 
completamente inéditos, pudiendo remitir tantos pro¬ 
gramas como se desee. 




Los programas deberán ser enviados en 
casete o disco flexible a TU MICRO COMMODORE 
(Concurso de programación) Apartado de Correos 
61.294. 28080 MADRID 


Los programas podrán ser de cualquierti- 
po (juegos, utilidades, gestión, educativos) y habrán 
de estar escritos en lenguaje BASIC o Código Máqui¬ 
na. 


Los programas deberán ser remitidos 
desprovistos de cualquier tipode protección, que im¬ 
pida o dificulte el análisis del mismo, asi como repro¬ 
ducción en estas páginas y su introducción como lis¬ 
tado siguiendo el sistema FUERA ERRORES. 


Cuando la ejecución del programa precise 
de la concurrencia de determinado periférico o adi¬ 
tamento (joysticks, tabletas gráficas, programas co¬ 
merciales de ayuda), se valorará la indicación de las 
modificaciones pertinentes, para que el programa 
pueda ser disfrutado por cualquier usuario en la con¬ 
figuración básica. 


El travieso C-Byte tiene el honor de 
invitaros a la participación en nuestro 
sexto concurso de programación. Los 
reauisitos necesarios son bien pocos: 


¡BES Todo programa presentado al concurso 
deberá acompañarse de los siguientes datos: 

• Datos personales del concursante. 

• Nombre del programa. 

• Modelo para el que está destinado. 

• Breve descripción del programa detallando las 
indicaciones necesarias para su ejecución. 


• Saber programar un ordenador COMMODORE. 

• Ser español o extranjero y 

• Tener una edad comprendida entre 5 y 105 años. 
Fácil, ¿verdad? 

En cuanto al premio, la mar de atractivo: 


■U Eos programas premiados pasarán a ser 
propiedad de la revista TU MICRO COMMODORE, pu¬ 
diendo hacer ésta libre uso de ellos, y renunciando 
sus autores a cualquier otra compensación distinta 
al premio. 


Los programas no premiados que por su 
calidad se hagan merecedores de su publicación, 
serán adquiridos por la editorial, aplicando la tarifa 
vigente. 


loo.ooo Ptas. 

en material informático. 


Y en fin, si alguno de los programas destaca por su originalidad, estética o 
comicidad, no sería de extrañar que le cayera alguna cosilla más... 


■E] Los programas recibidos con posteriori¬ 
dad a la fecha tope de la presente edición, serán au¬ 
tomáticamente incluidos en los destinados a la si¬ 
guiente. 


Hll El jurado decidirá sobre todos los aspec¬ 
tos no contemplados en estas bases y su decisión 
será inapelable. 

Y ahora a darse mucha prisa, el plazo para la re¬ 

cepción de programas termina el próximo día 1 de 
Jumo de 1987, 


¡¡SUERTE!! 
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SPRITES Y OTRAS 

CARACTERÍSTICAS 

GRÁFICAS 


Hemos visto r hasta ahora, gran par¬ 
te de las habilidades del VICII, para 
facilitar las labores de creación de 
programas gráficos. Sin embargo, 
nos restan aún por comentar algunas 
características: las referentes a la 
detección de colisiones entre spri- 
tes, o entre éstos y el fondo impreso 
de la pantalla, así como la de transpa¬ 
rencias de la pantalla (efecto tridi¬ 
mensional). 


PRIORIDADES ENTRE 
SPRITES 


Cuando hablamos de los principios 
básicos del color en el COMMODO- 
RE, ya tocamos el tema de la super¬ 
posición de los planos. En general, 
podemos decir que en la pantalla 
existen tres planos superpuestos: el 


borde o marco (zona no accesible pa¬ 
ra la impresión), el fondo (zona acce¬ 
sible) y el primer plano (color con el 
que se imprime). 

Pues bien, sobre esta estructura, 
ya conocida, se abren ocho nuevos 
planos de impresión, todos superio¬ 
res al del texto en pantalla, y dotados 
entre ellos de un código de priori¬ 
dad: los planos correspondientes a 
los sprites gráficos. 

De esta forma, cualquier sprite es 


de mayor prioridad que los caracte¬ 
res impresos en la pantalla, por ello, 
al desplazarse por la pantalla, oculta 
parcialmente lo ya impreso. Sin em¬ 
bargo, a través de los puntos no acti¬ 
vados de la matriz del sprite (color 
transparente), es posible ver aque¬ 
llas porciones de carácter que toman 
el color de la «tinta». 

Asimismo, es posible alterar la 
prioridad existente entre los sprites y 
lo impreso en la pantalla, de forma 



?LAUO 


TONVO 

MKCO 


En la pantalla existen tres planos 
superpuestos: el borde o marco, el fondo y el 
primer plano. 
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Cualquier sprite es de mayor prioridad que 
los caracteres impuestos en la pantalla. 



que algunos se deslicen por debajo o 
por encima de los objetos contenidos 
en la pantalla, a nuestra voluntad, 
consiguiéndose de esta forma un 
efecto tridimensional. 

La prioridad asignada a cada sprite 
frente a los demás es fija, y depende 
del número del mismo. Así, el sprite 0 
está dotado de la más alta prioridad y 
el 7 de la más baja. Si, por ejemplo, 
concurren en una misma zona los 
sprites 3 y 6, es evidente que el pri¬ 
mero ocultará, al menos parcialmen¬ 
te, al segundo. 

Por otro lado, debemos hacer una 
matización a la hora de las superposi¬ 
ciones de sprites. Si suponemos que 
el sprite de mayor prioridad tiene 
puntos transparentes (no dotados de 
color), siempre podremos ver a tra¬ 
vés de ellos parcialmente al que esté 
oculto bajo él. 

Del mismo modo, si el sprite oculto 
contiene espacios transparentes, 
que coincidan con los del de más alta 
prioridad, podremos ver parcialmen¬ 
te lo impreso en el fondo de la panta¬ 
lla. 


Es posible alterar la prioridad entre los 
sprites y lo impreso a voluntad, 
consiguiéndose un efecto tridimensional 


A este conjunto de efectos visua¬ 
les, los cuales tienen por objeto el fa¬ 
cilitar una visión tridimensional, se 
les denomina efecto «ventana». 

Al encender el ordenador la priori¬ 
dad asignada para los objetos conte¬ 
nidos en la pantalla, es mínima en re¬ 
ferencia a la de los sprites; de esta 
forma, cualquiera de ellos se super¬ 
pone a lo impreso en la misma. 

Nosotros podemos alterar este es¬ 
tado de cosas, tanto de forma general 
como particular, puesto que cada 
uno posee un bit de control dentro 
del registro de la posición de memo¬ 
ria 53275. Cada bit a 0 implica la prio¬ 
ridad del sprite frente a los datos, 


mientras que los bits a 1 suponen lo 
contrario. 

DETECCIÓN DE COLISIONES 
ENTRE SPRITES 

Independientemente del tamaño 
de los sprites, el VIC II gestiona de 
forma automática el control de coli¬ 
siones entre todos ellos, o entre cual¬ 
quiera de ellos y los datos contenidos 
en la pantalla. 

Este control, tiene en cuenta única¬ 
mente las posiciones visibles del 
sprite, es decir, los puntos más exte¬ 
riores dotados de color (no transpa¬ 
rentes). 

Las colisiones entre sprites se con¬ 
trolan a través del registro 53278 del 
VIC II, el cual tiene incluso en cuenta 
las habidas fuera de los límites visi¬ 
bles de la pantalla. Dentro de este re¬ 
gistro, cada sprite dispone de un bit 
de control que, de estar a 1, implica 
que el sprite se encuentra envuelto 
en una colisión. 

Bastará, por lo tanto, con efectuar la 
lectura del contenido de esta posi¬ 
ción, para tener cumplida informa¬ 
ción del tipo de colisión habido, sim¬ 
ple o múltiple. Sin embargo, debe¬ 
mos tener en cuenta que la lectura de 
este registro por PEEK, o su equiva¬ 
lente en código máquina, restaura 
automáticamente su valor. 



C-ByT£ C-B9TE C-B 
1TE C-B9TE 
B9TE CB9TE C-B9 
TE C-B9TE C-B9TE 
C-B 9TE C- B9TE C- 
9T£ CB9T£ C-B9TE 
B97E C-B97E C-BBT) 
E C-B9TE C-B9 
97E C-B9TE C-B! 
C-&9TE C-B9TE 
B9TE C-B9TE C- 
C-B97E C-B97E C- 
7E C-B97E C- 
B9TE C- 


>C-B9TE C-B9TE (?B97£< 
C-B9TE C-B9TE <5B1) 
TE C-B9TE CAB97E C-l 
¡E C-B9TE C 
felT£ CBITE 
TE CB9TEC-B 
TE C-B97ECB 
B9TE C-B9TC 
9TE CB9TEC8y< 
C-B9TE C- 89TE G 
9TE CB9TE CB9T 
E C-B9TE C- B9TE O 
9TE C-B9TE C-B9T1 
jE C-B9TE C-B yTE 














Al encender el ordenador, la prioridad 
asignada a los objetos contenidos en la 
pantalla es mínima con respecto a la de los 
sprites. 


Por ello, puede ser conveniente al¬ 
macenar el resultado de su lectura en 
otra zona de la memoria RAM o in¬ 
cluirlo en una variable BASIC, para 
permitir un análisis más detenido. 


DETECCIÓN DE COLISIONES 
ENTRE SPRITES Y DATOS 


De forma similar a lo comentado 
para las colisiones entre sprites, 
existe un registro encargado de con¬ 
trolar las posibles colisiones de spri¬ 
tes con los objetos contenidos en la 
pantalla, la 53279 del VIC II. 

Dentro de ella, cada sprite dispone 
de un bit que, de estar a 1, implica la 
existencia de una colisión. También, 
de forma análoga a lo que sucede 
con la posición 53278, ésta es de re¬ 
posición automática al efectuarse su 
lectura, por lo que resulta recomen¬ 
dable la misma norma comentada pa¬ 
ra el apartado anterior. 

En el modo multicolor, la compro¬ 
bación es similar, aunque debemos 
tener especial cuidado puesto que el 
VIC II considera los datos 01 como 
transparentes. 


UN PROGRAMA DE JUEGO 
QUE MANEJA SPRITES 

Para sembrar un poco de práctica 
en medio de tanta teoría, podemos 
entrar en el comentario de un senci¬ 
llo programa de ejemplo, en el que 
se muestran algunas características 
descritas en éste y el capítulo ante¬ 
rior (al final del artículo). 


Este juego tiene por objeto, reco¬ 
ger el mayor número posible de teso¬ 
ros del fondo del mar, para remolcar¬ 
los hasta el barco nodriza. Valiéndo¬ 
nos para ello de un batiscafo, el cual 
debe evitar ser atrapado por los pul¬ 
pos guardianes del tesoro. 

Para aumentar la dificultad, al com¬ 
pletar cada pantalla, se incrementa 
el número de cefalópodos, estableci¬ 
do en uno de comienzo. Es posible, 
sin embargo, aumentar este número, 
modificando la asignación de valor a 
la variable F, en la línea 100. 

El movimiento hacia arriba y abajo 
se controla con las teclas 1 y 2, y hacia 
izquierda y derecha con las del 9 y el 
0 . 

En la línea 20 se borra la pantalla y 
se establece el valor inicial para la 
variable sc$, la cual tiene por objeto 
facilitar el posicionamiento en cual¬ 
quier línea de la pantalla, por medio 
de la sentencia LEFT$. En la línea 30 
se completa el contenido de SC$, al 
tiempo que se define una cadena de 


espacios duros (SHIFT SPACE), ne¬ 
cesarios en el transcurso del progra¬ 
ma. 

La línea 40 contiene la dimensión 
de la matriz A() donde se contienen 
los datos de los sprites, al tiempo 
que se inicializa la variable V con el 
valor de comienzo del chip de video, 
y la línea 50 lee una cadena de 25 po¬ 
siciones, desde las líneas DATA del 
final del texto BASIC. 

La línea 60 establece el comienzo 
del bloque de memoria que conten¬ 
drá las configuraciones de puntos de 
los sprites, la 70 el color, y la 80 la car¬ 
ga física de la configuración conteni¬ 
da en las sentencias DATA en el 
banco correspondiente. 

La línea 100, inicializa los valores 
de algunas variables, como el núme¬ 
ro de pulpos activos F o el contador 
de puntos obtenidos H. 

Las líneas 110 y 120 tienen por ob¬ 
jeto colocar el fondo marino con sus 
tesoros, así como configurar el color 
de la parte superior de la pantalla. 






d 

i 







r l /v 


***f/ \ JAI L 










La prioridad asignada a 
cada sprite respecto a los 
demás es fija; depende 
del número del mismo. 


TU MICRO COMMODORE 33 























Escribe también el último byte de la 
pantalla, ángulo inferior derecho, por 
medio de la sentencia POKE, al no 
poder utilizar PRINT, pues provoca¬ 
ría el scroll de la misma. 

En las líneas 130 a 160, se inicializa 
el valor de la abscisas de los sprites, 
a la vez que se imprimen los marca¬ 
dores de la primera línea de pantalla. 
Los espacios contenidos en estas 
líneas son también SHIFT SPACE. 
Por último, la línea 160 imprime los 
valores numéricos. 

Las líneas 170 y 180 se encargan 
de posicionar inicialmente el barco 
de la superficie en el extremo iz¬ 
quierdo, desplazándolo lentamente 
hasta hacerle alcanzar el centro de la 
pantalla. 

Las líneas 190 y 200, se encargan 
de actualizar la variable que contiene 
el número de sprites activados G, in¬ 
crementando el número de pulpos 
en uno por cada nueva pantalla; ade¬ 
más, inicializan el valor de arranque 


del batiscafo en la superficie, pasan¬ 
do estos valores de ordenada y abs¬ 
cisa a su lugar en la matriz A(). 

El bucle contenido en las 210 a 230, 
establece, a su vez, la posición de 
partida y desplazamiento, de cada 
uno de los pulpos activados, de forma 
aleatoria. 

Las líneas 250 a 300, se encargan 
de efectuar el movimiento de cada 
uno de los sprites activos, teniendo 
en cuenta su rebote contra el contor¬ 
no de la pantalla, evitando que éstos 
puedan salirse de sus límites. 

Las líneas 310a 380, exploran el te¬ 
clado para decodificar el movimiento 
del batiscafo, impidiendo los despla¬ 
zamientos más allá del contorno de la 
pantalla. 

El bloque de líneas 390 a 450 cie¬ 
rran el bucle principal del programa, 
controlando la ocurrencia de colisio¬ 
nes. 

Las líneas 460 a 510, canalizan los 
mensajes de fin de programa, efec¬ 


Cada bit de la posición 53275 implica la 
prioridad de un sprite frente al de datos. 
Para el control de colisiones el VICII tiene 
sólo en cuenta las posiciones visibles del 
sprite. 


tuando la pregunta de si se desea ju¬ 
gar una nueva partida. 

El bloque de líneas 520 a 700, con¬ 
trolan la recogida de los tesoros, aña¬ 
diendo éstos a la configuración del 
sprite de batiscafo, y actualizan el 
marcador de puntos. 

Las líneas 710 a 810 contienen el 
área de subrutinas del programa, re¬ 
tardo, impresión de marcadores con 
ceros a la izquierda, etc. 

Por último, las líneas 820 a 920 con¬ 
tienen la configuración de los sprites. 



Cuando cargamos un programa, la pantalla 
se desconecta, tomando la parte útil de ésta 
el mismo color que el asignado para el 
borde o marco. 


CONEXIÓN/DESCONEXIÓN 
DE LA PANTALLA 

Si somos un poco observadores, 
nos habremos dado cuenta de que 
cuando se ejecuta una operación de 
carga desde la unidad de cinta la 
pantalla se desconecta, tomando la 


Es conveniente almacenar el resultado de 
los PEEK a la condición de los sprites en 
otra zona de RAM o en una variable BASIC, 
para permitir su análisis más detenido. 
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En el modo multicolor debemos tener 
especial cuidado, porque VICII considera 
los datos 01 como transparentes. 


parte útil de ésta el mismo color que 
el asignado para el borde o marco. 

En este estado el contenido de la 
pantalla no se pierde, sino que tan só¬ 
lo no se nos muestra, con objeto de 
aliviar transitoriamente el trabajo del 
microprocesador, para que éste pue¬ 
da ejecutar otras tareas más rápida¬ 
mente. 

Para comprender mejor la razón de 
todo esto, debemos pensar que la 
pantalla del COMMODORE ocupa 
una zona considerable de la memoria 




caso contrario su representación 
queda inhibida. Las sentencias BA¬ 
SIC que desconectan y vuelven a co¬ 
nectar la pantalla son las siguientes: 

POKE 53265,PEEK(53265) AND 

239 

POKE 53265,PEEK(53265) OR 16 


REGISTRO DE BARRIDO DE 
LA PANTALLA 

El registro de barrido está localiza¬ 
do en la posición 53266 del VIC II. 
Con su lectura, se obtienen los 8 bits 


menos significativos (peso bajo), de 
la posición actual de barrido de la 
pantalla (refresco). 

El bit restante, el más significativo, 
se encuentra en la posición 53265. El 
conocimiento del contenido de este 
registro de barrido, puede ayudar a 
efectuar modificaciones en la panta¬ 
lla sin generar turbulencias, o sea, 
cuando el barrido no está presente 
en la zona visible de la misma. 

Otra utilidad de este registro es la 
de almacenar un valor sobre él, te¬ 
niendo en cuenta por supuesto el bit 
más significativo. En este caso, el va¬ 
lor almacenado en esta posición se 


RAM, con la que el microprocesador 
debe operar muy activamente. Por 
ello, el hecho de desocuparse, al me¬ 
nos temporalmente, de esta tarea, re¬ 
dunda en beneficio de la velocidad 
de ejecución del microprocesador. 

Por estas razones, puede ser una 
buena técnica desactivar la pantalla, 
mientras se realizan tareas comple¬ 
jas de cálculo, sin requerir la repre¬ 
sentación de resultados. 

La conexión/desconexión de la 
pantalla se controla a través del bit 4 
del registro de control del VIC II 
53265. Cuando este bit está a 1, la 
pantalla es visible normalmente; en 


Cada sprite dispone de un byte de control 
que, de estar a 1, implica que el sprite se 
encuentra envuelto en una colisión. 
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COMBINACIONES IDÓNEAS 
DE COLOR 


La conexión y 
desconexión de la 
pantalla se controla a 
través del bit 4 del 
registro de control del 
VICII53265. 


El UUMMUDORE está dotado de 
una configuración de caracteres, que 
facilita su legibilidad en pantalla. Pa 
ra ello, éstos van dotados de vertica 
les dobles (dos puntos de ancho) 
frente a horizontales simples. 

Con esta técnica, los caracteres 
son más fácilmente legibles, que s 
estuvieran formados por líneas sim 
pies de un solo punto, lo que elimine 


Es una buena técnica desactivar la pantalla 
mientras se realizan tareas complejas de 
cálculo. 


En la posición 53273 se encuentra 
la información relativa a cualquier ti¬ 
po de interrupción. El bit 2 controla la 
colisión entre sprites, colocándose a 
1 cuando ésta se produce, activándo¬ 
se el bit 7 IRQ al producirse una inte¬ 
rrupción. 

El significado de los tres bits me¬ 
nos significativos es el siguiente: el 0 
IRST se activa cuando coincide el ba¬ 
rrido con el valor almacenado, el 1 
IMDC por las colisiones entre sprites 
y datos, el 2 IMMC por colisiones en¬ 
tre sprites y el 3 ILP está reservado 
para uso del lápiz óptico, cuando se 
dispone de este periférico. 

El registro de interrupciones se 
aloja en la posición de memoria 


53274, y está dotado del mismo for¬ 
mato que el registro de estado de in¬ 
terrupción. Ninguna interrupción 
puede acontecer, a menos que el co¬ 
rrespondiente bit del registro de in¬ 
terrupciones se encuentre activado. 

Gracias a este registro, puede divi¬ 
dirse la pantalla en zonas, texto o bit- 
map, por ejemplo; manejar más de 8 
sprites, etc. 


Manejando las interrupciones ade¬ 
cuadamente, son posibles estas 
combinaciones de funciones. Para 
conseguir la mitad superior de la 
pantalla en modo bit-map y la inferior 
en el modo texto, basta con colocar el 
registro de barrido en la mitad de la 
pantalla. 

Cuando se produce la interrup¬ 
ción, el VIC II toma los caracteres de 
la ROM. En este momento, debe co¬ 
locarse el registro de barrido al prin¬ 
cipio de la pantalla. Cuando se pre¬ 
senta la interrupción en la parte su¬ 
perior de la pantalla, el VIC II toma los 
caracteres de la RAM (bit-map). 

En cualquier caso, el manejo de las 
interrupciones requiere de una velo¬ 
cidad muy grande en la ejecución 
del programa de control, por ello, no 
es posible hacerlo desde el BASIC, 
debiendo recurrir a un programa en 
código máquina. Sin embargo, lo es¬ 
pectacular de los resultados, bien va¬ 
le un pequeño esfuerzo adicional de 
programación. 


— 


compara con la posición de barrido, 
activándose en caso afirmativo un bit 
en el registro de interrupción del VIC 
II, en la posición 53273. 

REGISTRO DE 
INTERRUPCIÓN 
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Una de las posibilidades gráficas de que 
disponemos a la hora de programar, es la 
definición del scroll uniforme. 


problemas sobre todo con recepto¬ 
res de T.V. 

En cualquier caso, la legibilidad de 
la representación en pantalla, de¬ 
pende en gran medida de los colores 
que especifiquemos para el fondo y 
primer plano. Podríamos decir que 
existen tres tipos de combinaciones, 
las ideales, las buenas y las no tan 
buenas. 

Esta calificación de contrastes, en¬ 
tre colores de caracteres y fondo de 
pantalla, se encuentra reflejada en el 
siguiente cuadro: 

TABLA OE COLORES 

0 1 2 3 4 5 S 7 B 9 10 11 12 13 14 15 

0RBRBBERBBRBBBBBB 
1BRBRBBBREBEBBRBB 
2RBRRERRBBRBRRRRE 
3BRRRREBRRRRERRER 
4BERRRRRRRRRRRRRE 
5BERERRRRRRRERBRE 
6EBRBRRRRRRRRREBB 
7BRBRRREREBEBBRRR 
8EBBRRRRBRBRRRRRE 
9RBRRRRRBBRBRRRRB 
10EEBRRRRERBRRRRRE 
11BBRERRRBRRRRBBEB 
12BBERRRERRERBRRRB 
13BRRRRBERRRRBRRRR 
14BBRBRRBRRRRERRRE 
15BBBREEBRREEBBRER 

R - Regular. 

B - Bien. 

E - Excelente. 


SCROLL UNIFORME DE LA 
PANTALLA 

Otra de las posibilidades gráfi¬ 
cas de que disponemos a la hora de 


programar, es la de definir el scroll 
uniforme, o desplazamiento punto a 
punto, de toda la pantalla en las cua¬ 
tro direcciones. 

De este modo, podemos introducir 
información en la pantalla de forma 
progresiva, mientras que la informa¬ 
ción ya almacenada se va perdiendo 
por el otro extremo. Esta posibilidad 
es soportada por los registros de 
scroll del VIC II; que además posee 
un modo de 38 columnas y otro de 24 
líneas, como soporte para ejecutar 
esta función. 

Para lograr un scroll uniforme de la 
pantalla es preciso seguir los si¬ 
guientes pasos. Primero reducir la 
pantalla, después colocar el registro 
de scroll al máximo o mínimo, según 
convenga. A continuación, situare¬ 
mos los datos en la parte no visible de 
la pantalla, para incrementar o dismi¬ 
nuir el registro de scroll, hasta que al¬ 
cance su valor máximo o mínimo. 

Llegados a este punto, es preciso 
echar mano de una simple rutina es¬ 
crita en código máquina, encargada 


de desplazar todo el contenido de la 
pantalla, un carácter en la dirección 
del scroll, para continuar, a partir de 
este punto, otra vez con la serie de 
operaciones comentadas. 

Para colocar el ordenador en el 
modo de 38 columnas, debe ponerse 
a 0 el bit 3 de la posición 53270: 

POKE 53270, PEEK(53270) AND 

247 

Para volver al modo de 40 colum¬ 
nas, debemos colocar a 1 el corres¬ 
pondiente bit: 

POKE 53270,PEEK(53270) OR 8 

Para pasar al modo de 24 líneas, es 
preciso desactivar el bit 3 de la posi¬ 
ción de memoria 53265: 

POKE 53265, PEEK(53265) AND 247 

Para volver al modo normal de 25 
líneas, deberemos activar el bit co¬ 
rrespondiente: 

POKE 53265,PEEK(53265) OR 8 
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Para el scroll horizontal, debemos 
actuar sobre los bits del registro 
53270, en la forma: 


POKE 53270,(PEEK(53270) AND 
248)+X 

Donde X representa la posición de 
la pantalla, de 0 a 7. 

Para el scroll vertical, debemos ac¬ 


tuar sobre los bits del registro 53265, 
en la forma: 

POKE 53265,(PEEK(53265) AND 

248)+Y 

Donde Y representa la posición de 
la pantalla, de 0 a 7. 

Para provocar un scroll del texto 
desde abajo de la pantalla, deben 
colocarse los tres bits menos signifi¬ 


cativos de la posición 53265, de 0 a 7, 
a continuación colocar los datos en la 
línea cubierta inferior de la pantalla, y 
repetir el proceso mecánicamente. 

De forma análoga, para producir un 
scroll de izquierda a derecha, debe¬ 
mos hacer variar los tres bits menos 
significativos de la posición 53270, 
de 0 a 7, escribir la columna oculta de 
datos, y repetir el proceso mecánica¬ 
mente. 


LISTADO 


9CSAS;:POKE2023,1B0 
130 POKEU+16,0 
140 PRINT”CHOM}CBLK) !P! !U!!N!ÍT!!0! 
BC15)”!R¡!E!!C!!O!¡R!ID!”CHR$C1B6)” 
150 PRINTTABC30)”!I!!N!!T!!E!!N!!T! 


10 REM - REMOLCADOR CC) J.M.LOPEZ MARTINEZ -149- 

20 PRINT” CCLR) ” : SC$*”CHOM} ** -110- 

30 FORI-0TO23:5CS-5CS+”CABJ}”:NEXT:FORI-0TO39:SPS-5PS 
+ ” ”:NEXT -127- 

40 DIMAC7,3):U-53240 -009- 

50 FORI*0TO24:READJ:B$“B$+CHR$CJ):NEXT -07B- 

60 J-2040:POKEJ,13:POKEJ+1,14:FORI-2T07:POKEI+J,15:NE 
XT -155- 

70 POKEU+40,9:POKEU+44,13:POKEU+29,2 -149- 

90 FORI-0TO191:READJ:P0KEB32+I,J:NEXT -10B- 

90 POKEU+32,15: POKEU+34,14: POKEU+35, B : POKEU+17,91 

-176- 

100 E-113:F-l:H-0 -165- 

110 AS-”CYEL1<:R0N1 CR0F1$SCR0N)L2 E5PD CR0F)S$CR0N}C2 
E5P:CR0F)SSCR0N>C2 ESP) CR0F}S$CR0N)C2 EBPDCROFISSCRON 
1C2 E5PDCR0F)$$CR0N1C2 ESP)CR0F)$$CR0N)C2 ESPl CROF!>$$ 
CR0N)C2 E5P3CR0F)$SCR0N}C2 ESPDCROFISS” -206- 

120 L-10:F-F+l:N-N+l:PRINT”CCLR1CBLK5"SPSSPSSPS:PRINT 

-002- 
-039- 

S!”CHR$(106)” ”TA 
-136- 

0!”CHR$ C106)” ” 

-136- 

160 J-7:X-H:GOSUB750:J-22:X-D:GOSUB750 -112- 

170 POKE1063,E:POKEU+30,0 -203- 

100 POKEU+21,2 : POKEU+3,53:C-.5:FORJ-0TO160:POKEU+2,J: 
GO5UB730:NEXT -105- 

190 G"3:IFF< 0THENFORI“2T0F:G“G+2“I:NEXT -045- 

200 AC0,0)-172:AC0,1)-76:POKEU,172:POKEU+1,76 

-227- 

210 F0RI-2T0F:ACI,0)-RNDC1)*294+25:ACI,1)«RNDC1)*146+ 
75 -027- 

220 ACI,2)“4*CINTCRNDC1)*3)-1):ACI,3)-4*CINTCRNDC1)*3 
)—1):IFACI,2)-0THEN220 -037- 

230 NEXT -244- 

240 J*7:X“H:GOSUB750 -225- 

250 F0RI-2T0F:ACI,0)-ACI,0)+ACI,2):ACI,1)-ACI,1)+ACI, 
3) -212- 

260 IFACI, 0X25ORAC 1,0)>319THENAC I,2)“ACI,2)*-1 

-050- 

270 IFACI,1X750RACI,1)>221THENACI,3)"ACI,3)*-1 

-060- 

200 A-INTCACI,0)/256):B-ACI,0)-A*256:IFATHENPOKEU+16, 
PEEKCU+16)0R2"I:GOTO300 -246- 

290 POKEU+16,PEEKCU+16)ANDC255-2“I) -034- 

300 POKEU+2*I,B:POKEU+2*I+1,ACI,1):NEXT:POKEU+21,G 

-254- 

310 GETXS:IFX$“”"THEN360 -150- 

320 IFX$»"1”THENAC0,2)«0:AC0,3)— 1 4 :GOTO360 -051- 

330 IFXS-”2”THENAC0,2)-0:AC0,3)-4:GOTO360 -000- 

340 IFXS"”9”THENAC0,3)“0:AC0,2)"-4:GOTO360 -061- 

350 IFX$-”0”THENAC0,3)-0:AC0,2)-4 -252- 

360 X-AC0,0)+AC0,2):Y-AC0,1)+AC0,3) -242- 

370 IFX<210RX> 323THEN420 -212- 

300 IFY<74ORY>22BTHEN420 -227- 

390 A-INTCAC0,0)/256):B-AC0,0)-A*256:IFATHENPOKEU+16, 
PEEKCU+16)0R1:GOTO410 -032- 

400 POKEU+16,PEEKCU+16)AND254 -195- 

410 POKEU,B:POKEU+1,Y:AC0,0)-X:AC0,1)-Y -036- 

420 X-PEEKCU+30):IFX-INTCX/2)*2THEN520 -010- 

430 IFAC0,D-22BTHEN500 -010- 

440 IFAC0, D-76THEN630 -216- 

450 GOTO250 -137- 

460 PRINTLEFTSCSCS , 12)TABC4) ”CUIHT)DESEA INTENTARLO DE 
NUEUO CS/N)?” -045- 


470 IFH>DTHEND-H:J-23:X-D:GOSUB750 -155- 
400 GETXS:IFX$<>”5”ANDX$< >”N”THEN4B0 -140- 
490 IFXS-”5”THEN100 -092- 
500 PRINTLEFTSCSCS,12)TABC4)”C7 ESP1GRACIAS POR JUGAR 
!C7 ESPD” -000- 
510 END -141- 
520 C-.5:FORJ-0TO4:POKEU+21,PEEKCU+21)AND254:GO5UB730 

-222- 

530 POKEU+21,PEEKCU+21)ORl:NEXT:POKEU+21,PEEKCU+21)AN 
D254:GO5UB000:E-E+l -140- 
540 IFMTHENGOSUB7B0 -227- 
550 IFL-0THEN660 -205- 
560 IFE-116THEN460 -045- 
570 GOTO170 -141- 
500 IFMTHEN250 -095- 
590 A-CAC0,0)-2B)/32:IFAOINTCA)THEN250 -157- 
600 B-A*6+5:IFMIDSCAS,B,1)0”$ n THEN250 -030- 
610 AS-LEFTSCA$,B-l)+”C2 E5P3”+MID$CAS,B+2):PRINT5CSA 
S;:GOSUB000 -246- 
620 H“H+ CA+l)*N:FORI“1T025:POKE070+1,ASCCMIDSCB$,1,1) 
):NEXT:M-l:L-L-l:GOTO240 -051- 
630 IFM-0THEN250 -200- 
640 IFAC0,0)<1570RAC0,0)>1B6THEN250 -162- 
650 H-H+10*N _i40_ 
660 GO5UB700:GOSUBB00:IFLTHEN240 -007- 
670 POKEU+21,2:C-.5:F0RJ-161T0344 -201- 
600 A-INTCJ/256):B-J-A*256:IFATHENPOKEU+16,PEEKCU+16) 
0R2:GOTO700 -125- 
690 POKEU+16,PEEKC U+16)AND253 -205- 
700 POKEU+2,B:POKEU+3,53:GOSUB730:NEXT:POKEU+2,0:POKE 
U+16,0:G0T0110 -175- 
710 P0KE54273,A:P0KE54272,B:GOSUB730 -136- 
720 RETURN -153- 
730 FORI“0TO99*C:NEXT -002- 
740 RETURN -155- 
750 J-J+1024:X$-RIGHT$C5TR$CX),LENCSTRSCX))-l):X$-RIG 
HTSC”C4 0)”+X$,5) -157- 
760 F0RI"1T05:POKEI+J,ASCCMIDSCXS,I,1))+64:NEXT 

-009- 

770 RETURN -150- 
700 FORI“1T025:POKEB70+1,0:NEXT:M-0 -172- 
790 RETURN -160- 
000 AC0,2)-0:AC0,3)-0 -013- 
010 RETURN -153- 
020 DATA3,129,192,1,0,120,3,193,224,4,2,0,3,129,192,0 
,64,32,7,131,192,1,0,120 -251- 
030 DATA0 -005- 
040 DATA0,255,0,3,255,192,7,255,224,15,255,240,20,231 
,56,20,231,56,31,255,240 -036- 
050 DATA15,255,240,7,255,224,3,109,192,6,0,96,6,0,96, 
3,0,192,0,0,0,0,0,0,0,0,0 -026- 
060 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -100- 
070 DATA0,0,0,0,16,0,0,40,0,0,16,0,0,16,0,0,56,0,0,16 
,0,4,16,64,4,16,64,14,56 -190- 
000 DATA224,4,16,64,4,16,64,4,16,64,31,125,240,4,16,6 
4,220,16,64,245,211,64 -106- 
090 DATA255,255,255,237,102,220,127,255,240,63,255,24 
0,0 -041- 
900 DATA0,30,0,0,63,120,0,255,120,1,255,192,3,255,192 
,3,255,192,3,255,120,3 -169- 
910 DATA147,136,1,219,16,0,254,92,0,04,190,0,239,136, 
7,255,192,12,254,96,9,233 -090- 
920 DATA4B,26,101,144,10,100,152,34,04,200,35,02,110, 
31,41,137,1,64,146,0 -077- 


READY. 


-173- 
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1 1 

Hoy puede parecer un día normal, pero en Quintic 

para el ganador será de 100 pintas de la mejor cerveza 

Village, pequeña población del norte de Escoda, es una 

en el tugurio de Sam, pagadas por supuesto por el per- 

jornada muy especial. Todo estriba en la inusual apuesta 

dedor. La competición se centrará en un match de dar- 

que se ha cruzado entre los personajes más singulares 

dos, al mejor de tres juegos, y se celebrará, como no, en 

del pueblecito: Big Fat Gordon y Billy Boy Jim. El premio 

la taberna de Sam. ¿Quién será capaz de perdérselo? 


a hora señalada ha llegado, 
y la gente se agolpa en las 
escasas sillas de que dispo¬ 
ne la taberna. Miles de 
apuestas se entrecruzan y 
los murmullos se recrudecen bajo las voces 
de uno que asegura la victoria de Big Fat u 
otro que no duda que el vencedor será Billy 
Boy. Y de pronto: el silencio. La puerta se ha 
abierto y en el umbral aparece la oronda fi¬ 
gura de Big Fat, sobre el que caen una sal¬ 
va de vítores y hurras. Con un gesto de su 
mano hace callar a la masa, y con gran 
aplomo se dirige a la barra: Sam, ponme 
una de tus pintas. 

De pronto, la estilizada figura de Billy 
Boy irrumpe en el establecimiento y el silen¬ 
cio se hace ahora más poderoso. Los dos 
contendientes se miran y Big Fat es el prime¬ 
ro en abrir la boca: Esas 100 pintas me van 
a proporcionar una buena borrachera, 
gracias muchacho. A lo que éste responde: 
Primero habrás de ganarlas, tras lo cual 
ambos se dirigen hacia el escenario del 
match secundados por un estallido de júbi¬ 
lo general. 

La competición empezará en 501 pun¬ 
tos, a los cuales se les irán restando los con¬ 
seguidos en las dianas, tirando tres dardos 
cada vez. La máxima puntuación en 180 
(tres triples 20) y cada juego ha de acabar 
en 0 justo y con el último dardo en un do¬ 
ble. 

Tras una hora, las cosas están al rojo vi¬ 
vo: un juego ha caído de cada bando y en 
el último, el definitivo, Big Fat se dispone a ti¬ 
rar, para restar ya de 25. El primer dardo, 
ante el estupor general cae al suelo, el se¬ 
gundo acierta en el 9 simple, y... ¡Magnífi¬ 
co, el tercero ha caído sobre el doble 8!, Big 
Fat ha vencido! Pero la voz de Billy Boy sur- 
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ge entre el vocerío y sentencia: Aún debo ti¬ 
rar yo. Y ante la sorpresa de todo el pueblo, 
Billy, que resta de 151, realiza un triple 17, 
un triple 20, y su último dardo vuela certero 
y se clava en el doble 17 ¡Ha empatado! 
Big Fat mira asombrado a la diana, y Billy 
exclama: Tranquilo, Fatty, nos cogeremos 
la borrachera ¡untos. Dicen que la fiesta se 
prolongó hasta el día siguiente y miles de 
historias se cuentan sobre esa noche, por¬ 
que... ¿hay algo más emocionante que un 
match de dardos? 
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NOMBRE 

180 


PRECIO 

699 PTAS. 


SOPORTE 

CINTA 

TIPO 

DEPORTES 


MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 
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Matí Nurse 


■ 


La organización es lo más importante: es la frase más 

que ni el Pentágono pudiera competir en perfección or- 

usual que surge de la mofletuda boca del director del 

ganizativa con este sanatorio, lo cual casi es cierto, a no 

hospital. Su estertorea voz va dejando caer estas pala- 

ser por ese habitáculo, ¡sí!, ese antro de descontrol y de- 

bras a través de los pasillos, en la más inesperada esqui- 

sorden escondido en el Laberinto de la primera planta... 

na, escondido, acechante tras las mamparas de las salas 

la guardería. 


de enfermos irrecuperables. Oyéndole hablar parecería 


odo empezó con un insulso y 
escueto anuncio en un perió¬ 
dico de segunda clase: «Se 
precisa personal para guar¬ 
dería en hospital, seriedad y 
presencia de ánimo, plazas limitadas». Re¬ 
cordando ahora este episodio de mi vida, 
desde las cuatro paredes de mi habitáculo 
sito en el prestigioso Manicomio para Des- 
hauciados de Mentes Desquiciadas 
(M.D.M.D), me parecen muy lejanas las ra¬ 
zones por las que me decidí a aceptar el 
empleo. El caso es que me planté en las ofi¬ 
cinas de admisión y ante mi sorpresa me 
aceptaron sin poner trabas. Sólo ahora en¬ 
tiendo aquella frase de la empleada de 
guardia comentando el tema con su com¬ 
pañera: ¡Parecía tan ¡oven y feliz! 

En ese momento no lo entendí y me dirigí 
a mi trabajo con la mayor diligencia. El le¬ 
trero de la puerta estaba muy limpito y el si¬ 
lencio era total; una sensación de paz y 
bienestar invadió mi cuerpo, y, con gran 
decisión, hice lo que nunca debí haber he¬ 
cho, el principio de mi caída en el negro po¬ 
zo de la desesperación: ¡abrí la puerta! 
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En ese preciso instante observé que el 
suelo de la habitación estaba plagado de 
decenas de formas blancas, que con sus vi¬ 
vaces ojitos iban arrastrándose, unos rep¬ 
tando, otros gateando por el blanco suelo: 
eran bebés; éstos, al oír mi entrada, giraron 
sus lindas cabecitas hacia mí y se convirtie¬ 
ron en unas salvajes bestias que saltaron 
sobre mis piernas, me llenaron de babas, 
mordiscos e involuntarios escapes de ese 
nauseabundo líquido que rebosaba a tra¬ 




vés de sus pañales. 

Acto seguido, escaparon en todas direc¬ 
ciones, dejándome en un extraño estado 
de aturdimiento y humedad. Se dispersaron 
por todos los rincones, yendo hacia los en¬ 
chufes y botes con productos tóxicos de la 
sala, y por cada uno que metía en la cuna, 
saltaban otros ocho al suelo. Y lo peor de 
todo es que siguen allí, otros diferentes, pe¬ 
ro seguramente más malignos, y no creo 
que haya nadie capaz de detenerlos. 
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El mundo se halla bajo un peligro mortal que amena¬ 
za con destruir lo y convertirlo en una nube de polvo este¬ 
lar. Quedan 24 horas para que el final se produzca, y 
nadie sabe si podrá evitarse. La espe ranza está de¬ 


positada en un hombre que ha dado muestras otras ve¬ 
ces de un valor más allá de lo humano, si alguien es ca¬ 
paz de lograr lo imposible, ese es... ¡Flash Gordon! 


I cruel Ming, deseoso de ha¬ 
cerse con el control de todo 
el Universo, y ante la deno¬ 
dada resistencia que la Tie¬ 
rra impone a su irrefrenable 
avance, se ha decidido por la vía rápida. 
Dirigiendo sus potentes misiles hacia el cen¬ 
tro de la Tierra, logrará desintegrarla por 
completo en el terriblemente corto plazo de 
24 horas. 

La Federación ha enviado a Flash a bus¬ 
carle: si Ming vive, la Tierra morirá, y vice¬ 
versa, ya que éste lleva consigo, como me¬ 
dida de seguridad, el control remoto que 
activa los misiles, y si Flash quiere arrancár¬ 
selo y desactivarlos, necesitará previamen¬ 
te haber acabado con él, cosa nada fácil, 
por cierto. 

Empezaremos nuestra misión en la ¡ungía 
del mundo de Ming, ya que nuestra nave se 
ha estropeado, cayendo entre la maleza, 
afortunadamente sin perjuicio alguno para 
nosotros. Ante todo, deberemos encontrar 
la cueva del príncipe Barín, el único que 
quizás pueda ayudarnos. Para llegar hasta 
él deberemos superar la multitud de dificul¬ 
tades que interpondrá la selva, con miles de 
ojos escrutándonos entre la espesura. Si 
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nuestra habilidad, reflejos y valentía es tan 
legendaria como pregonan, llegaremos a 
las cavernas de Barín. Este es un personaje 
muy desconfiado y terco, y tendremos que 
ganarnos su respeto con el objeto de que 
nos deje un ¡et y nos enseñe la forma de lle¬ 
gar hasta Ming. 

Estas dos etapas, parecen difíciles, pero 
no serán nada comparadas con el encuen¬ 
tro final: nuestras fuerzas contra las de Ming 
y sus guardianes. La lucha tendrá lugar en 
el aire, y sus jets nos parecerán pequeños, 
pero rápidamente podremos comprobar 


que los partidarios de Ming no pertenecen 
al club de fans Flash Gordon. Esta batalla 
será a muerte, y por supuesto sólo habrá un 
único vencedor, y sólo un perdedor, o Ming 
o la Tierra. Pero mejor será no entretenerse 
demasiado, el tiempo pasa... ¡y sólo nos res¬ 
tan 24 horas! 
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NOMBRE 

FLASH GORDON 

PRECIO 

699 PTAS. 

SOPORTE 

CINTA 

TIPO 

ACCION 

MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 
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La penitenciaría de Freeworld, conocida por sus in¬ 

creíbles medidas de seguridad, de la que no ha conse¬ 
guido escapar con vida preso alguno, se halla en un es- 
tado de gran efervescencia debido a la prohibición de 


jugar a las cartas en los espacios de recreo. Los presos 

han sentido violados sus derechos más personales, y se 

está preparando un motín... ¿tendrá éxito? 


os mejores cerebros en cues¬ 
tión de fugas se han reunido 
en secreto en una asamblea 
que ha tenido lugar en los 
servicios de la planta 4, la de 
los estafadores, pensando en las diferentes 
posibilidades de éxito de una fuga gene¬ 
ralizada. Después de desechar como invia- 
bles la del túnel al exterior, por ser muy 
arriesgada y difícil de llevar a cabo con la 
totalidad de reclusos, y la del ataque masi¬ 
vo contra los guardias, debido al gran nú¬ 
mero de bajas que podría acarrear, se ha 
decidido tomar como rehén a una persona 
importante, para lograr salir al exterior sin 
lucha ni meses de demora. 

Y la elección ha recaído en la persona 
del alcaide de la prisión, enérgico y respe¬ 
tado por sus subordinados. El hecho tuvo lu¬ 
gar en la comida de cumpleaños de éste, 
por ser el único día que todos los presos se 
hallaban ¡untos en un mismo lugar y acom¬ 
pañados del alcaide, y tal como estaba 


planeado, el éxito fue rotundo y la totali¬ 
dad de reclusos consiguió escapar. 

El estado de alerta en la ciudad limítrofe 
con la penitenciaría es total, ya que los eva¬ 
didos campan por sus respetos por sus ca¬ 
lles, sin nadie que se atreva a hacerles fren¬ 
te, ya que además han conseguido tomar 
otros muchos rehenes entre la población ci¬ 
vil. No se sabe cómo, pero han logrado ha- 
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cerse con armas y representan un increíble 
peligro. 

Así que la lucha se traslada a la calle, y 
como buenos policías que somos, debere¬ 
mos acabar con los fugados, que dispara¬ 
rán contra nosotros a la mínima posibilidad 
que tengan. Tendremos asimismo el deber 
de rescatar a los rehenes que tiene en su 
poder; por cada uno que arranquemos de 
sus garras, se nos proporcionará un arma 
suplementaria. Es una misión más difícil de 
lo que parece, ya que son muchos, y se ha¬ 
llan apostados tras los coches, escondidos 
en las alcantarillas, en los tejados de las ca¬ 
sas o empuñando una pistola en plena ca¬ 
lle ¿lograremos salir indemnes de... Jail 
Break? 
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Microrhythm 



El concierto acaba de comenzar, en un principio, el 

público se halla expectante ante la posible perfección 

que puedan desarrollar los músicos en su interpretación. 

Sólidas baladas acompañan a perfectos y vivos rock & 

rolls que sumergen al público en la música hasta hacerle 

perder el sentido del tiempo. Pero sobre todo, en este 


concierto hay un instrumento que subyuga a la vocife¬ 

rante masa: con sus increíbles ritmos, la batería les hace 
moverse a todos bajo un mismo son. Acercarse al sonido 

de una batería no es fácil, pero Microrhythm están real... 
que muchos lo dudarían. 


ste programa consta de tres 
modos: el modo de composi¬ 
ción, en el cual podremos 
componer los ritmos de las 
canciones con la velocidad, 
tono y duración que prefiramos; el modo 
de compás, con el cual podremos ajustar 
nuestras ¡deas a unos compases continua¬ 
dos y el de tiempo real, para lograr por fin 
escuchar nuestra creación. 

Los instrumentos que pueden ser utiliza¬ 
dos en este programa son: el bombo, tam¬ 
bor, tres tipos de timbales, platillos altos-ce¬ 
rrados, platillos altos-abiertos, charleston, 
gong, tambor de borde, cencerro, palmas y 
pandereta. Podremos comprobar que con 
ellos es posible realizar multitud de compo¬ 
siciones diferentes y de muy distintas tonali¬ 
dades. 

Además, gozaremos de otras muchas 
ventajas como pueden ser: el Flam, que 
consiste en la repetición o eco de un soni¬ 
do, el cual puede ser subido o bajado se¬ 
gún nuestras preferencias. También se per¬ 
mite subir o bajar el tono, así como reducir o 
aumentar la duración de un compás, para 
que quede a nuestro gusto. Incluso, con el 
objeto de no despistarnos, podremos escu¬ 
char un metrónomo que nos orientará acer¬ 
ca de la velocidad que queremos imponer¬ 
le a nuestra composición e impedirá que 
nos adelantemos al ritmo o retrasemos éste. 

Por último, y como punto final, para 
aquellos enamorados de sus creaciones, 
tendremos la ocasión de grabar nuestras 
propias canciones, para escucharlas, si así 
lo deseamos, posteriormente. Sin duda, Mi¬ 



crorhythm nos ofrece una buena cantidad 
de oportunidades de ejercitarnos en el sen¬ 
tido del ritmo y contrastar unos sonido con 
otros muy diferentes, por ello, un solo con¬ 
sejo: ¡pruébalo, no te arrepentirás! 


VEREDICTO FINAL 
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* 
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Cómo obtener el máximo provecho del cassette de Commodore 


Comenzamos este mes una serie de artículos, para explicar cómo se 

guarda la información en los dipositivos periféricos de almacenamiento ma¬ 

sivo: el cassette y el disco de los ordenadores Commodore. 


n primer lugar, trataremos el 
periférico de almacena¬ 
miento por excelencia: la 
cinta. Para completar los co¬ 
nocimientos expuestos en 
teoría sobre él mismo, incluiremos un pro¬ 
grama en código máquina de gran utili¬ 
dad, que nos permitirá descubrir: el nom¬ 
bre, dirección de inicio, dirección de final, 
longitud total, carga relativa o absoluta y ti¬ 
po de fichero grabado en cinta. 

Como sabemos, la información en el in¬ 
terior del ordenador se almacena en forma 
de ceros y unos (bits), que se agrupan en 


una unidad superior que consta de ocho 
bits denominada byte u octeto. 

El problema básico consiste en estudiar 
la forma de almacenar esta información vo¬ 
látil (ya que se encuentra en la RAM), de 
una forma semipermanente (con capaci¬ 
dad de borrado y modificación), en algún 
soporte que permita un acceso sencillo y 
seguro a dichos datos. 

En el caso que nos ocupa, se trata de 
transformar estos ceros y unos (existencia o 
ausencia de tensión) en una serie de impul¬ 
sos eléctricos, modificados por una bobina 
en impulsos magnéticos capaces de alterar 


la orientación magnética de unos materia¬ 
les llamados ferromagnéticos (fig. 1). 

Los materiales empleados en las cintas 
son de este tipo, y tienen la particularidad 
de «recordar» la información sobre la pola¬ 
ridad del campo magnético a la que han si¬ 
do sometidos, permaneciendo esta infor¬ 
mación hasta que son expuestos a otro 
campo magnético de características aná¬ 
logas que lo anule. 

Como es lógico esto ocurre durante la 
escritura; el proceso de lectura es justamen¬ 
te al contrario. Los cambios en el sentido de 
la polaridad en la cinta, excitan a la bobina 
captadora que los transforma en impulsos 
eléctricos, estos amplificados de forma con¬ 
veniente son inteligibles para el ordenador 
(fig. 2). 

Requisitos Hardware y Software 

Pero todo este proceso no es tan sencillo, 
para que esta señal se pueda grabar en 
cinta, es necesario que cumpla una serie de 
requisitos que vienen impuestos tanto por la 
física como por el hardware y el software in¬ 
cluidos en la memoria ROM del ordenador, 
tales como: nivel de ruido, amplitud de la 
señal, codificación, duración de los impul¬ 
sos, etc. 

Comenzaremos por los requisitos físicos. 
Aquí encontraremos los motivos por los 
cuales no es posible la utilización de una 
grabadora normal de audio para nuestro 
cometido, lo cual no viene impuesto por la 
forma del conector. Aunque básicamente 
la grabadora/reproductora digital funcio¬ 
na bajo los mismos principios que las de au¬ 
dio, existen una serie de matices a tener en 
cuenta. 

— Nivel de ruido. Si el ruido que produce 
nuestro reproductor/grabador es superior 
a los mínimos de señal, es posible que estos 
ruidos sean entendidos como señales digi¬ 
tales, por lo que introduciríamos errores al 
quedar la señal original enmascarada, de¬ 
bemos saber que es posible que un fallo en 
un único bit, puede llevar al traste un pro¬ 
grama entero. 

— Amplitud de la señal. Si la señal es de¬ 
masiado débil, es posible que el sistema la 
rechace considerándola como ruido de 
fondo, en el caso del C-64 las señales ópti¬ 
mas oscilan entre los OV. y los 5V. 
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— La frecuencia. Es posible que el siste¬ 
ma no sea capaz de reconocer por motivos 
físicos (banda de frecuencias) una señal 
que no tenga la frecuencia necesaria. 

El problema de la señal/ruido se resuelve 
con un circuito específico, denominado dis¬ 
parador Schmitt, este circuito, normalmente 
se encuentra en la placa bajo la forma de 
un integrado, y es la diferencia básica entre 
un circuito de audio analógico y otro digi¬ 
tal. 

El disparador, en esencia, transforma 
una señal variable en una de flancos rápi¬ 
dos como es el caso de una onda cuadra¬ 
da. Las tensiones de alimentación nos con¬ 
dicionan la tensión máxima y mínima, para 
que el disparador identifique una señal co¬ 
mo cero o como uno (fig. 3). 

Con frecuencia, se utilizan circuitos dis¬ 
paradores inversores que funcionan de la 
siguiente manera: ante una señal de entra¬ 
da que reconocen como uno, la sacan co¬ 
mo cero, por lo que si queremos obtener la 
misma señal de entrada a la salida de una 
señe de circuitos inversores, tendremos que 
conectar uno a continuación de otro en un 
número par de ellos. He aquí el primer mo¬ 
tivo por el que no podemos conectar dos 
grabadoras/reproductoras Com modore 
de forma directa para intercambio directo 
de información, sin incluir una ¡nterface en¬ 
tre las mismas (fig. 4). 

La segunda razón estriba en que los or¬ 
denadores Commodore envían la informa¬ 
ción de forma invertida a como la reciben 
(fig. 5), por lo que si queremos conectar dos 
grabadoras Commodore directamente, 
tendremos que hacerlo a través de un inver¬ 
sor (fig. 5), y si la queremos conectar a una 
grabadora normal de audio, podremos ha¬ 
cerlo a través de dos inversores, que adap¬ 
taran la señal oportunamente (fig. 6). 
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FIGURA 6 


La grabadora/reproductora de los 
Commodore dispone de un circuito inte¬ 
grado TTL 74LS14 que consta de seis inver¬ 
sores conectados según la figura 7. 

Todo esto se complica bastante si pensa¬ 
mos en los requisitos que nos impone el soft¬ 
ware y el hardware, como es el caso de las 
demás líneas de ¡nterface que incorpora el 
datassette aparte de las de LOAD y SAVE; 
a saben las dos de alimentación de OV (ma¬ 
sa) y de 5V, la de SENSE que detecta la pul¬ 
sación de una tecla del datassette (avisa al 
ordenador que puede iniciar la emisión de 
datos hacia el periférico), y la de CASS que 
pone en marcha el motor bajo el control del 
ordenador. 

Otro de los requisitos del hardware/soft¬ 
ware, es el formato de los datos. Normal¬ 
mente éstos no se envían de una forma de¬ 
sordenada, sino que siguen unas pautas 
muy severas. Veamos cómo se manda un 
byte (8 bits), al ordenador o desde el orde¬ 
nador. 

Lo primero que tenemos que saber es 
que los Commodore emplean tres tipos de 
impulsos de distinta duración para codifi¬ 
car la información: 

Impulso A de 176 microsegundos. 

Impulso B de 256 microsegundos. 

Impulso C de 336 microsegundos. 

Para codificar un byte, primeramente se 
envía una serie CCBB que precede a cual¬ 
quier byte, luego un 1 se representa por 
una serie BBAA y un 0 por AABB (fig. 8). 0.96 
milisegundos por cada carácter. 


El buffer 


Un elemento importante de la transmi¬ 
sión de datos desde el datassette y hacia 
él, es el buffer del cassette; una zona de me¬ 
moria que va desde la posición $033C has¬ 
ta la $ 1019 (en el C-64), cuya misión es ge¬ 
nerar la cabecera de identificación, la cual 
tiene el siguiente formato: 

Byte 0 posición 828 tipo de fichero. 

Significado: 

01 programa carga relativa (BASIC). 

02 bloque de datos. 

03 programa carga absoluta (código 
máquina). 

04 cabecera de datos. 

05 bloque EOT (fin de cinta). 

Byte 1,2 posición 829,830 dirección de 
inicio LO/HI. 

Byte 3,4 posición 831,832 dirección de fi¬ 
nal LO/HI. 

Byte 5 posición 833 en adelante nombre 
de fichero. 

El resto se llena de espacios, hasta el final 
del buffer. Además, ésta es la mínima uni¬ 
dad de transferencia de información entre el 
datassette y el ordenador, por lo cual se uti¬ 
lizan estos bytes sobrantes para programas 
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cargadores con «autorun» escondidos en 
la cabecera. 

Asimismo, el butfer tiene la misión de al¬ 
macenar los bloques de información que 
mediante rutinas de Kernal, van pasando al 
registro acumulador del microprocesador y 
de allí al datassette o, en el proceso de car¬ 
ga, del datassette al acumulador y de allí al 
buffer. 

Si nos elevamos más en el formato de 
grabación de datos en el datassette, vere¬ 
mos que los bloques están integrados en 
unidades mayores. Antes de la cabecera 
propiamente dicha va una serie de bytes 
de sincronización (sirven para poner en mar¬ 
cha un contador de impulsos que lleva el 
control de los bytes que entran o salen de 
buffer), luego nos encontramos con la cabe¬ 
cera, donde hallamos los datos del fichero, 
más adelante otro grupo de sincronización 
y los bloques de datos, y por último, puede 
haber un bloque final indicador de final de 
cinta (bloque EOT). 

El control de errores en el caso de los or¬ 
denadores Commodore es muy efectivo. El 
primero se produce a nivel de byte, tras el 
cual hay un bit de paridad. El siguiente se 
efectúa sobre bloque, en el que se genera 
un byte de control tras una serie de opera¬ 
ciones lógicas con todos los datos. Por si to¬ 
do esto fuera poco, toda la información es 
repetida de nuevo para comparar si lo que 
se ha transmitido coincide en los dos casos. 


Este es el principal motivo por el cual las 
operaciones con el datassette son tan len¬ 
tas. Lógicamente, los turbos disponibles, eli¬ 
minan parte de estas medidas de seguri¬ 
dad, a la par que aumentan la velocidad 
de transmisión, por lo que es frecuente la 
aparición de errores en este tipo de opera¬ 
ciones con turbo. 

Esperamos que este artículo haya servi¬ 
do de ayuda, para comprender cómo fun¬ 
cionan internamente en las operaciones de 
la lectura escritura con el datassette los or¬ 


denadores Commodore. 

Para finalizar, y como ya adelantamos al 
comienzo de estas páginas, he aquí un pro¬ 
grama que pone en práctica todo lo visto 
sobre el datassette, efectuando un com¬ 
pletísimo análisis de las cintas. Adjuntamos 
igualmente un listado ensamblador del mis¬ 
mo, con el fin de que aquellos lectores entre 
cuyos conocimientos se cuente el código 
máquina, puedan proceder a un estudio 
más exhaustivo de nuestro programa HEA- 
DER. 


INDICADOR 

BYTE 

i 

0 

0 

1 

0 

0 

0 

i 

C C B B 

B B A A 

A A B B 

A A B B 

B B A A 

A A B B 

A A B B 

A A B B 

B B A A 


FIGURA 8 


LISTADO 


10 A-0:PRINT”CCLR>U1 OCHJF.A. ACERO (C) 1987".PRINT 

-237- 

20 FORBYT-491S2TO49706 -071- 

30 READUA : POKEBYTE,UA : A-A+UA -091- 

40 NEXT -195- 

50 IF A< >48067THENPRINT”CCLR)ERROR EN DATAS":END 

- 102 - 

60 PRINT"*CARGAR PROGRAMA DE CINTA, CUANDO L0C7 ESP3E 
NCUENTRE PUL5AR RUN/STOP” -173- 

70 PRINT”*ACTIUAR CON SYS 491S2” -208- 

80 PRINT"«TRAS UER LOS DATOS” -11S- 

90 PRINT”*REBOBINAR Y CARGAR 0 BUSCAR OTRO” -020- 

100 PRINT”*EL HEADER TAPE SE ENCUENTRA DE 491S2 AC4 E 
SP149706” -134- 

110 PRINT”»SI EL PROGRAMA NO LO PISA LO MANTENEMOSC3 
ESP3EN MEMORIA” -039- 

500 DATA 169,0,141,32,208,141,33,208,32,68,229,169,10 
5.160,193,32 -189- 

510 DATA 30,171,24,162,2,160,6,32,10,229,169,139,160, 
193,32,30 -026- 

520 DATA 171.24,162,4,160,0,32.10,229,169,164,160,193 
,32,30,171 -075- 

530 DATA 169,65,160,3,32,30,171,24,162,10,160,0 32 10 
,229,169 -230- 

540 DATA 172,160,193,32,30,171,173,62,3,174,61,3,32,2 
05,189,32 -037- 

550 DATA 94,193,173,61,3,141,52,3,173,62,3,141.53,3,3 
2.28 -045- 
560 DATA 193,24,162,12,160.0.32,10,229,169,180,160.19 


3,32,30,171 -120- 
570 DATA 173,64,3,174,63,3,32,205,189,32,94,193,173,6 
3.3.141 -212- 
580 DATA 52,3,173,64,3,141,53,3,32,28,193.56,173,63,3 
.237 -056- 
590 DATA 61,3,141,52,3,173,64,3.237,62,3,141,53,3,24, 
162 -245- 
600 DATA 14,160,0,32,10,229,169,187,160.193,32,30,171 
,173,53,3 -030- 
610 DATA 174,52,3,32,205,189,32,94,193,32,28,193,24.1 
62,16,160 -049- 
620 DATA 0,32,10,229,169.199,160,193,32,30,171,173,60 
.3.201.1 -233- 
630 DATA 208,10,169,20S,160,193,32,30,171,76.27,193,2 
01,2,208,10 -129- 
640 DATA 169,220,160.193,32,30,171,76,27,193,201,3,20 
8,10,169,236 -192- 
650 DATA 160,193,32,30,171,76,27,193,201,4,208,10,169 
,254,160,193 -194- 
660 DATA 32,30,171,76,27,193,201,5,208,10,169,16,160, 
194,32,30 -037- 
670 DATA 171,76,27,193,169.27,160 194,32,30,171,96,17 
3,53,3,32 -064- 
680 DATA 53.193,173,53,3,32.63,193,173,52,3.32,53,193 
,173,52 -211- 
690 DATA 3,32,63,193,96,32,72,193,32,77,193,32,12,225 
,96,41 -170- 
700 DATA 15,32,77,193,32,12.225.96,74,74.74,74,96,201 
,10,48 -166- 


710 DATA ! 
,169,102 
720 DATA : 
46,65 
730 DATA : 
.79 


i 9,56,233,10,24,105,65,76.93,193,24,105,48,96 
' - 010 - 
160,193,32,30,171,96,61,36.0,32,32,32,32,70, 

-091- 

32,65,67,69,82,79,32,32,84,85,32,77,73,67,82 

-053- 

740 DATA 32,67,79.77,77,79,68.79,82,69,0,72,69,55,68, 
69 -030- 

750 DATA 82,32,67.73,78,84,65.32,32,49,50,45.48,49,45 
.49 -042- 

760 DATA 57,56,55,0,78.79,77,66,82,69,58,0,73,78,73,6 
7 -219- 

770 DATA 73,79,58,0,70.73,78,65,76,58,0,68,73,70,69,8 
2 -208- 
780 DATA 69,78.67,73,65,58,0,84,73,B0,79,58,0,66,65,8 
3 -21S- 

790 DATA 73.67,44,82,69,76,65,84,73,86.79,0,66,76,79, 
81 -020- 
800 DATA 85,69,32,68,69,32,68,65,84,79,83,0,77,65,81, 
85 -008- 

810 DATA 73,78,65.44,32,65,66,83,79,76,85,84,79,0,67. 
65 -008- 

820 DATA 66,69,67,69,82.65,32,68,69,32,68,65,84,79,83 
,0 - 011 - 
830 DATA 66,76,79,81,85,69,32.69,79,84,0,78,79,32,73, 
77 -019- 

840 DATA 80,76,69,77,69,78,84,65,68,79,0 -03S- 
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930 COBO AE3403 
990 C0B3 20CDBD 
950 C0B6 20SEC1 
960 C0B9 201CC1 
970 COBC 18 


9B0 COBO 
990 COBF 
1000 COCI 
1010 C0C4 
1050 C0C6 
1030 COCB 
1040 COCB 
1050 COCE 
1060 CODO 
1070 C0D5 
1080 C0D4 
1090 C006 
1100 C0D9 
1110 COOC 
1150 CODE 
1130 COEO 


A210 

AOOO 

200AE5 

A9C7 

A0C1 

201EAB 

AD3C03 

C901 

DOOA 

A9CD 

A0C1 

201EAB 

4C1BC1 

C905 1 

DOOA 

A9DC 


A LISTING, 

PAGE «1 



PASS 

1 




PASS 

2 




LINE« 

LOC. 

OBJECT LABELS 

LINE 

10 

0000 




20 

0000 



HEADER CINTA C-64 

30 

0000 



AO SOFT 1987 

40 

0000 



TU MICRO COMMODORE 

50 

0000 




60 

0000 




70 

0000 



ETIQUETAS 

80 

0000 




90 

0000 

COLOR 

-SD020 

100 

0000 

LIBRE3 

-S0334 

110 

0000 

LIBRE4 

-S0335 

120 

0000 

EDITNU 

-SBOCD 

130 

0000 

EDITCA 

-SAB1E 

140 

0000 

BORRA 

-SE544 

150 

0000 

SETCUR 

-SE50A 

160 

0000 

BUFFER 

-S033C 

170 

0000 

CHROUT 

-SE10C 

180 

0000 




190 

0000 



PROGRAMA 

200 

0000 




210 

cooo 



!ORG SCOOO 

220 

cooo 

A900 

LDA «SOO 

230 

C002 

8D2000 

STA COLOR 

240 

C005 

BD21D0 

STA COLOR-1 

250 

COOB 

2044E5 

JSR BORRA 

260 

COOB 

A969 

LDA «TEXT1&255 

270 

COOD 

A0C1 

LDY «TEXT1/256 

280 

COOF 

201EAB 

JSR EDITCA 

290 

C012 

18 

CLC 

300 

COI 3 

A202 

LDX «SOS 

310 

COIS 

A006 

LDY «S06 

320 

C017 

200AE5 

JSR SETCUR 

330 

COI A 

A98B 

LDA «TEXT2&255 

340 

C01C 

A0C1 

LDY «TEXT2/256 

350 

C01E 

201EAB 

JSR EDITCA 

360 

C021 

18 

CLC 

370 

C022 

A204 

LDX «S04 

380 

C024 

AOOO 

LDY «SOO 

390 

C026 

200AE5 

JSR SETCUR 

400 

C029 

A3A4 

LDA «TEXT38255 

410 

C02B 

A0C1 

LDY «TEXT3/256 

420 

C02D 

201EAB 

JSR EDITCA 

430 

C030 

A941 

LDA «S41 

440 

C032 

A003 

LDY «SOS 

450 

C034 

201EAB 

JSR EDITCA 

460 

C037 

18 

CLC 

470 

C038 

A20A 

LDX «SOA 

480 

C03A 

AOOO 

LDY «SOO 

490 

C03C 

200AE5 

JSR SETCUR 

500 

C03F 

A9AC 

LDA «TEXT4&2SS 

510 

C041 

A0C1 

LDY «TEXT4/256 

520 

C043 

201EAB 

JSR EDITCA 

530 

C046 

AD3E03 

LDA BUFFER-2 

540 

C049 

AE3D03 

LDX BUFFER-1 

A LISTING, 

PAGE «2 



LINE« 

LOC. 

OBJECT LABELS 

LINE 

550 

C04C 

20CD8D 

JSR EDITNU 

560 

C04F 

205EC1 

JSR DOLAR 

570 

C052 

AD3D03 

L 

pA BUFFER-1 

580 

C0S5 

8D3403 


¡TA LIBRE3 

590 

cose 

AD3E03 

LDA BUFFER-2 

600 

C05B 

BD3503 

STA LIBRE4 

610 

C05E 

201CC1 

JSR DECODE 

620 

C061 

18 

CLC 

630 

C062 

A20C 

LDX «SOC 

640 

C064 

AOOO 

LDY «SOO 

650 

C066 

200AE5 

JSR SETCUR 

660 

C069 

A9B4 

LDA «TEXT58255 

670 

C06B 

A0C1 

LDY «TEXTS/256 

680 

C06D 

201EAB 

JSR EDITCA 

690 

C070 

AD4003 

LDA BUFFER-4 

700 

C073 

AE3F03 

LDX BUFFER-3 

710 

C076 

20CDBD 

JSR EDITNU 

720 

C079 

205EC1 

JSR DOLAR 

730 

C07C 

AD3F03 

LDA BUFFER-3 

740 

C07F 

803403 

STA LIBRE3 

7S0 

C082 

AD4003 

LDA BUFFER-4 

760 

C085 

8D3503 

STA LIBRE4 

770 

C08B 

201CC1 

JSR DECODE 

700 

C08B 

38 

SEC 

790 

C08C 

A03F03 

LDA BUFFER-3 

800 

C08F 

ED3D03 

SBC BUFFER-1 

810 

C092 

803403 

S 

TA LIBRE3 

820 

C095 

AD4003 

LDA BUFFER-4 

830 

C09B 

ED3E03 

SBC BUFFER-2 

840 

C09B 

BD3503 

STA LIBRE4 

850 

C09E 

18 

CLC 

860 

C09F 

A20E 

LDX «SOE 

870 

C0A1 

AOOO 

LDY «SOO 

880 

C0A3 

200AE5 

JSR SETCUR 

890 

C0A6 

A9BB 

LDA «TEXT68255 

900 

COAS 

A0C1 

LDY «TEXT6/256 

910 

COAA 

201EAB 

JSR EDITCA 

920 

COAD 

AD3S03 

LDA LIBRE4 


LDX LIBRE3 
JSR EDITNU 
JSR DOLAR 
JSR DECODE 
CLC 


LDX 

LDY 

JSR 

LDA 

LDY 

JSR 

LOA 

cnp 

BNE 

LOA 

LDY 

JSR 

jnp 

cnp 

BNE 

LDA 


IIS10 

«soo 

SETCUR 

«TEXT7&255 

«TEXT7/256 

EDITCA 

BUFFER 

«SOI 

DOS 

«TEXT8&555 

«TEXTB/356 

EDITCA 

FIN 

«SOS 

TRES 

•TEXT98255 
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LINE« 

LOC. 

OBJECT LABELS 

LINE 

1140 

C0E2 

A0C1 

LDY 

«TEXT9/2S6 

1150 

C0E4 

201EAB 

JSR 

EDITCA 

1160 

C0E7 

4C1BC1 

JMP 

FIN 

1170 

COEA 

C903 TRES 

CMP 

«S03 

1180 

COEC 

DOOA 

BNE 

CUATRO 

1190 

COEE 

A9EC 

LDA 

«TEXT10&255 

1200 

COFO 

A0C1 

LDY 

«TEXT10/256 

1210 

C0F2 

201EAB 

JSR 

EDITCA 

1220 

C0F5 

4C1BC1 

JMP 

FIN 

1230 

COFB 

C904 CUATRO 

CMP 

«S04 

1240 

COFA 

DOOA 

BNE 

CINCO 

1250 

COFC 

A9FE 

LDA 

«TEXT11&25S 

1260 

COFE 

A0C1 

LDY 

«TEXT11/2S6 

1270 

C100 

201EAB 

JSR 

EDITCA 

1280 

C103 

4C1BC1 

JMP 

FIN 

1290 

C106 

C905 CINCO 

CMP 

«S05 

1300 

C108 

DOOA 

BNE 

ERROR 

1310 

C10A 

A910 

LDA 

«TEXT128255 

1320 

C10C 

A0C2 

LDY 

«TEXT12/256 

1330 

C10E 

201EAB 

JSR 

EDITCA 

1340 

Clll 

4C1BC1 

JMP 

FIN 

1350 

C114 

A91B ERROR 

LDA 

«TEXT1382S5 

1360 

C116 

A0C2 

LDY 

«TEXT13/256 

1370 

C118 

201EAB 

JSR 

EDITCA 

1380 

C11B 

60 FIN 

RTS 


1390 

C11C 

AD3503 DECODE 

LDA 

LIBRE4 

1400 

C11F 

2035C1 

JSR 

MAIN1 

1410 

C122 

AD3503 

LDA 

LIBRE4 

1420 

C125 

203FC1 

JSR 

MAIN2 

1430 

C128 

AD3403 

LDA 

LIBRES 

1440 

C12B 

2035C1 

JSR 

MA INI 

1450 

C12E 

AD3403 

LDA 

LIBRES 

1460 

C131 

203FC1 

JSR 

MAIN2 

1470 

C134 

60 

RTS 


1480 

C135 

2048C1 MAIN1 

JSR 

SHIFT 

1490 

C1 38 

204DC1 

JSR 

ASCI I 

1500 

C13B 

200CE1 

JSR 

CHROUT 

1510 

C13E 

60 

RTS 


1520 

C13F 

290F MAIN2 

ANO 

» 

b 

o 

o 

o 

1530 

C141 

204DC1 

JSR 

ASCII 

1540 

C144 

200CE1 

JSR 

CHROUT 

1S50 

C147 

60 

RTS 


1560 

C148 

4A SHIFT 

LSR 

A 

1S70 

C149 

4A 

LSR 

A 

1580 

C14A 

4A 

LSR 

A 

1590 

C14B 

4A 

LSR 

A 

1600 

C14C 

60 

RTS 


1610 

C14D 

C90A ASCII 

CMP 

«SOA 

1620 

C14F 

3009 

BMI 

CIFRA 

1630 

C151 

38 

SEC 


1640 

C152 

E90A 

SBC 

«SOA 

1650 

C154 

18 

CLC 


1660 

C155 

6941 

ADC 

«S41 

1670 

C157 

4C5DC1 

JMP 

SAL 

1680 

C15A 

18 CIFRA 

CLC 


1690 

C15B 

6930 

ADC 

NS30 

1700 

C15D 

60 SAL 

RTS 


1710 

C15E 

A966 DOLAR 

LDA 

«TEXT082S5 

1720 

C160 

A0C1 

LDY 

«TEXTO/256 
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LINE« LOC. OBJECT LABELS 


LINE 


1730 C165 501EAB 

1740 C165 60 

1750 C166 30 TEXTO 

1750 C167 54 

1750 C16B 00 

1760 C169 20 TEXT1 

1760 C16A 20 

1760 C16B 20 

1760 C16C 20 

1760 C16D 46 

1760 C16E SE 

1760 C16F 41 

1760 C170 20 

1760 C171 41 

1760 C172 43 

1760 C173 45 

1760 C174 52 

1760 C175 4F 

1760 C176 20 

1760 C177 20 

1760 C17B 54 

1760 C179 55 

1760 C17A 20 

1760 C17B 4D 

1760 C17C 49 

1760 C17D 43 

1760 C17E 52 

1760 C17F 4F 

1760 C1B0 20 

1760 C181 43 

1760 C1B2 4F 

1760 C183 4D 

1760 C1B4 4D 

1760 C185 4F 

1760 C1B6 44 

1760 C1B7 4F 

1760 C1B8 52 

1760 C189 45 

1760 C1BA 00 

1770 C18B 48 TEXT2 

1770 CISC 45 

1770 C18D 41 

1770 C18E 44 

1770 C18F 45 

1770 C190 -52 

1770 C191 20 

1770 C192 43 

1770 C193 49 

1770 C194 4E 

1770 C195 54 

1770 C196 41 

1770 C197 20 

1770 C19B 20 

1770 C199 31 

1770 C19A 32 

1770 C19B 2D 

1770 C19C 30 

1770 C19D 31 

1770 C19E 2D 


JSR EDITCA 
RTS 

•BYTE -S'.O 


.BYTE F.A ACERO TU MICRO COMMODORE’,O 


•BYTE -MEADER CINTA 12-01-1987',0 
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ALTO NIVEL 


A LISTING, 

PAGE 

•5 



LINE» 

LOC. 

OBJECT LABELS 

LINE 


1770 

C19F 

31 




1770 

C1A0 

39 




1770 

C1A1 

38 




1770 

CIAS 

37 




1770 

C1A3 

00 




1780 

C1A4 

4E 

TEXT3 

.BYTE 

•NOMBRE: 1 ,0 

1780 

CIAS 

4F 




1780 

C1A6 

4D 




1780 

C1A7 

48 




1780 

CIAS 

58 




1780 

C1A9 

45 




1780 

C1AA 

3A 




1780 

C1AB 

00 




1790 

C1AC 

49 

TEXT4 

.BYTE 

1 INICIO: 1 ,0 

1790 

CIAD 

4E 




1790 

C1AE 

49 




1790 

C1AF 

43 




1790 

C1B0 

49 




1790 

C1B1 

4F 




1790 

C1B8 

3A 




1790 

C1B3 

00 




1800 

C1B4 

46 

TEXTS 

• BYTE 

•FINAL: 1 ,0 

1800 

C1B5 

49 




1800 

C1BG 

4E 




1800 

C1B7 

41 




1800 

C1B8 

4C 




1800 

C1B9 

3A 




1800 

C1BA 

00 




1810 

C1BB 

44 

TEXT6 

.BYTE 

•DIFERENCIA:•,0 

1810 

C1BC 

49 




1810 

C1BD 

46 




1810 

C1BE 

45 




1810 

C1BF 

58 




1810 

C1C0 

45 




1810 

C1C1 

4E 




1810 

C1C8 

43 




1810 

C1C3 

49 




1810 

C1C4 

41 




1810 

cíes 

3A 




1810 

C1C6 

00 




1820 

C1C7 

54 

TEXT7 

• BYTE 

•TIPO: 1 ,0 

1820 

C1CB 

49 




1820 

C1C9 

50 




1880 

CICA 

4F 




1880 

C1CB 

3A 




1880 

C1CC 

00 




1830 

C1CD 

48 

TEXT8 

• BYTE 

•BASIC,RELATIUO-,0 

1830 

C1CE 

41 




1830 

C1CF 

53 




1830 

C1D0 

49 




1830 

C101 

43 




1830 

C1D8 

8C 




1830 

C1D3 

52 




1830 

C104 

45 




1830 

C105 

4C 




1830 

C1D6 

41 




1830 

C1D7 

54 




1830 

C1DB 

49 




1830 

C109 

S6 
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LI NEW LOC. OBJECT LABELS UNE 


1B30 C1DA 4F 
1830 C1DB 00 
1840 C1DC 48 
1840 C1DD 4C 
1840 C10E 4F 
1840 C10F 51 
1840 C1E0 55 
1840 C1E1 45 
1840 CIES 80 
1840 C1E3 44 
1840 C1E4 45 
1840 CIES 80 
1840 CIES 44 
1840 C1E7 41 
1840 C1EB 54 
1840 C1E9 4F 
1840 C1EA 53 
1840 C1EB 00 
1850 C1EC 40 
1850 C1E0 41 
1850 C1EE 51 
1850 C1EF 55 
1850 CIPO 49 
1850 C1F1 4E 
1850 C1F8 41 
1850 C1F3 8C 
1850 C1F4 80 
1850 C1FS 41 
1850 C1F6 48 
1850 C1F7 53 
1850 C1FB 4F 
1850 C1F9 4C 
1850 C1FA 55 
1850 C1FB 54 
1850 C1FC 4F 
1850 C1FD 00 
1860 C1FE 43 
1860 C1FF 41 
1860 C800 48 
1860 C801 45 
1860 C808 43 
1860 C803 45 
1860 C804 S8 
1860 C80S 41 
1860 C806 80 
1860 C807 44 
1860 C208 45 
1860 C809 20 
1860 C80A 44 
1860 C208 41 
1860 C20C 54 
1860 C800 4F 
1860 C80E 53 
1860 C80F 00 
1870 C810 48 
1870 C211 4C 
1870 C212 4F 
1870 C813 51 
1870 C814 55 


TEXT9 


TEXT10 


TEXT11 


TEXT18 


.BYTE BLOQUE DE DATOS'.O 


.BYTE 'nAQUI NA, ABSOLUTO 1 ,O 


.BYTE CABECERA DE DATOS 1 .0 


• BYTE •BLOQUE EOT 1 ,O 
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LINE» LOC. OBJECT LABELS LINE 


1870 C815 45 

1870 C816 80 

1870 C817 45 

1870 C81B 4F 

1870 C819 54 

1870 C21A 00 

1880 C81B 4E TEXT13 

1880 C81C 4F 

1880 C21D 80 

1880 C21E 49 

1880 C81F 4D 

1B80 C220 50 

1880 C221 4C 

1BB0 C888 45 

1880 C223 4D 

1880 C884 45 

1880 C885 4E 

1880 C826 54 

1880 C287 41 

1880 C22B 44 

1880 C889 4F 

1880 C22A 00 

SUCCESSFUL ASSEfIBLY; NO ERRORS. 


.BYTE 1 NO inPLEDENTADO 1 ,O 
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CONCORDANCE TABLE, IN AL PHABE TICAL ORDERs 


LABEL VALUE DEFN. REFERENCES 


ASCII 

BORRA 

BUFFER 

CHROUT 

CIFRA 

CINCO 

COLOR 

CUATRO 

DECODE 

DOLAR 

DOS 

EDUCA 

EDITNU 

ERROR 

FIN 

LIBRE? 

LIBRE4 

HA INI 

MAIN2 

SAL 

SETCUR 

SHIFT 

TEXTO 

TEXT1 

TEXT10 

TEXTU 

TEXT12 

TEXT13 

TEXT2 

TEXT3 

TEXT4 

TEXT3 

TEXT6 

TEXT7 

TEXT8 

TEXT9 

TRES 


•C14D 1610 
•ES44 140 

•033C 160 

•E1OC 170 
•C15A 1680 
4C106 1290 
•D020 90 
tC0F8 1230 
tC11C 1390 
tCISE 1710 
tCODC 1110 
tABlE 130 

tBDCD 120 
tC114 1330 
tC11B 1380 
•0334 100 
•0333 110 
•C133 1480 
•C13F 1320 
•C13D 1700 
•E50A 150 
•C148 1360 
•C166 1730 
*C169 1760 
•C1EC 1850 
•C1FE 1860 
•C210 1870 
•C21B 1880 
•C18B 1770 
•C1A4 1780 
•C1AC 1790 
•C1B4 1800 
•C1BB 1810 
•C1C7 1820 
•C1CD 1830 
•C1DC 1840 
•COEA 1170 


1490 1330 

230 

330 540 

790 800 

1500 1540 

1620 
1240 

230 240 

1180 

610 770 

560 720 

1060 

280 330 

1090 1150 

530 710 

1300 

1100 1160 
580 740 

600 760 

MOO 1440 
1420 1460 

1670 

320 390 

1480 

1710 1720 

260 270 

1190 1200 

1230 1260 

1310 1320 

1350 1360 

330' 340 

400 410 

500 310 

660 670 

890 900 

1010 1020 
1070 1080 

1130 1140 

1 120 


570 390 690 700 730 750 

820 830 1040 


960 

950 

420 450 

1210 1270 

940 

1220 1280 
810 930 

840 920 


490 630 


520 680 

1330 1370 


1340 

1430 1450 

1390 1410 


880 1000 


910 1030 . 

1730 


A LISTING. PAGE #9 


CONCORDANCE TABLE IN NUMERICAL ORDER: 


LABEL 


VALUE DEFN. REFERENCES 


LIBRE3 
LIBRE4 
BUFFER 

EDITCA 

EDITNU 

DOS 

TRES 

CUATRO 

CINCO 

ERROR 

FIN 

DECODE 

HA INI 

MAIN2 

SHIFT 

ASCII 

CIFRA 

SAL 

DOLAR 

TEXTO 

TEXT1 

TEXT2 

TEXT3 

TEXT4 

TEXT3 

TEXT6 

TEXT7 

TEXT8 

TEXT9 

TEXT10 

TEXT11 

TEXT12 

TEXT13 

COLOR 

CHROUT 

SETCUR 

BORRA 


•0334 100 
•0333 110 
*033C 160 

•AB1E 130 

•BDCD 120 
•CODC lllO 
•COEA 1170 
•C0F8 1230 
•C106 1290 
•C114 1330 
•CUB 1380 
•C11C 1390 
•C133 1480 
•C13F 1320 
•C148 1360 
•C14D 1610 
•C13A 1680 
•C1SD 1700 
•C15E 1710 
•C166 1730 
•C169 1760 
•C18B 1770 
•C1A4 1780 
•C1AC 1790 
•C1B4 1800 
•C1BB 1810 
•C1C7 1820 
•C1CD 1830 
•C1DC 1840 
•C1EC 1830 
•C1FE 1860 
•C210 1870 
•C21B 1880 
•0020 90 
•E10C 170 
•E50A 150 
•E544 140 


580 740 

600 760 

330 340 

790 800 

280 330 

1090 1130 

530 710 

1060 
1120 
1 180 
1240 
1300 

1IOO 1160 
610 770 

1400 1440 

1420 1460 

1480 

1490 1330 

1620 
1670 

360 720 

1710 1720 

260 270 

330 340 

400 410 

300 310 

660 670 

890 900 

1010 1020 
1070 1080 

1130 1140 

1190 1200 

1230 1260 

1310 1320 

1330 1360 

230 240 

1300 1540 

320 390 

230 


810 

840 

370 

820 

420 

1210 

940 


1220 

960 


930 


490 


930 1430 1430 

920 1390 1410 

590 690 700 

830 1040 

430 320 680 

1270 1330 1370 


1280 1340 


630 880 1000 


730 730 

910 1030 

1730 
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Desde Alicante, nos escribe un reciente commodoriano, se 
trata de José Serer Catalá, que tiene las siguientes dudas: 

1. ¿Es preciso desconectar el sistema Fuera Errores antes 
de grabar el programa tecleado? 

2. ¿Ocurre algo si no se desconecta al ejecutar un 
programa? 

3. ¿Hay que cargar el programa reloj (Octubre), cada vez 
que se vaya a usar con otro programa? 

4. ¿Se queda grabado en los programas que se hayan 
podido grabar? 

5. ¿Cómo se trabaja con los programas que tienen varios 
listados a la vez? 

6. ¿Cómo se consigue la abreviatura de POKE? 

1. Al terminar de teclear un programa de nuestra revista, para 
proceder a su grabación, es necesario desconectar el sistema 
Fuera Errores mediante la pulsación simultánea de las teclas 
RUN/STOP+RESTORE; sobre todo para los usuarios de 
Datassette. Esto se debe a que el programa Fuera Errores, se 
haya ubicado precisamente ahí, en el «Buffer del casete», que es 
por donde «circularán» los datos del programa al grabarse en la 
cinta. Para los usuarios de disco, esta operación no es tan 
crucial, pero se recomienda también su desconexión, debido a 
que Fuera Errores, usa interrupciones, que como norma general, 
se deberán desactivar SIEMPRE, antes de cualquier operación 
de Entrada/Salida. 

2. Si el programa Fuera Errores sigue activado al ejecutar un 
programa, pueden pasar muchas cosas; desde que no pase 
nada, hasta que el ordenador se cuelgue. El que suceda una 
cosa u otra, vendrá determinado por las características del 
programa que se ejecute; si éste utiliza el mismo tipo de 
interrupción (IRQ) que el Fuera Errores, seguro que habrá 
problemas o si emplea la zona de memoria antes comentada 
(buffer del casete). En cualquier caso, y puesto que ya no se va a 
necesitar al ejecutar un programa, se DEBE desactivar siempre 
antes de probar otro programa. 

3. Siempre que se quiera utilizar un programa de ampliación, 
como el reloj del número de octubre o incluso el mismo Fuera 
Errores, se debe cargar primero esta aplicación y ejecutarla 
(RUN), y a continuación, cargar el programa que funcionará 
«conjuntamente» con la aplicación. 

4. Esta pregunta, está íntimamente relacionada con la anterior; 
la respuesta es NO, cuando se graba un programa que use de 
otro, como comodidad, información o por cualquier otro motivo, 
generalmente esta utilidad se haya escrita en código máquina, 
en posiciones de memoria que nada tienen que ver con el 
BASIC (por ejemplo el Fuera Errores en el buffer del casete), por 
lo que al grabar el programa, la aplicación (Fuera Errores, Reloj, 
etc.), no se grabará con él, teniendo que proceder a su carga, 


cada vez que se quiera emplear, como veíamos en la respuesta 
anterior. No obstante, si no hemos apagado el ordenador, y la 
aplicación no ha sido borrada por el programa utilizado, siempre 
cabe la posibilidad de activarla de nuevo (si está fuera de la 
zona BASIC como es lo habitual, incluso después de un NEW), 
mediante el SYS correspondiente. 

5. La forma de trabajar con los programas que tienen varios 
listados a la vez, se explica detalladamente en el texto del 
artículo. En algunos casos, se trata de programas 
complementarios, en los cuales habrá que ejecutar el primero, 
después el segundo... etc.; en otros casos, será el primer 
programa (cargador), el que se ocupe de cargar al 0 a los 
siguientes, y otras veces se tratará de programas de ejemplo de 
un programa principal. Pero siempre, su uso quedará explicado 
en el texto del artículo que les acompaña. 

6. Para abreviar la palabra POKE, deberás pulsar la letra P y a 
continuación mantener pulsada SHIFT con la letra O (pO). En 
general, las abreviaturas de las palabras clave, se consiguen 
pulsando la primera letra de la palabra más la segunda letra con 
SHIFT. Para más información, consulta las tablas situadas al final 
del manual del C64. 


Juan Manuel Moyano Rodríguez (Málaga) tiene el problema 
en la frecuente aparición del mensaje de error «out of data» 
al teclear los programas que aparecen en TECLA a TECLA. 

Como muy bien indica el téxto del mensaje, este error se 
produce al intentar leer más datos de los disponibles dentro del 
programa, presentes dentro de las líneas DATA y son tratados 
por el intérprete como si fuesen una única lista SECUENCIAL. 
Este mensaje puede aparecer por dos causas fundamentales: la 
primera es que el rango del FOR que los lee es superior al 
número de datos presentes en estas líneas DATA; y la segunda, 
es que no haya suficiente número de datos debido a que te 
hayas «comido» alguna línea DATA; no obstante, también puede 
aparecer si te has «comido» alguna coma entre datos, lo cual 
produciría la confusión de dos o más datos como uno solo 
faltando lógicamente al final. 

Para solucionar este problema, deberás usar el sistema Fuera 
Errores!, siguiendo atentamente las instrucciones de uso que 
aparecen en cada número de nuestra revista, ya que parece 
altamente improbable que el ordenador genere estos mensajes 
por un mal funcionamiento. Si siguen apareciendo los mensajes, 
vuelve a escribirnos aclarándonos en qué línea se producen y en 
qué programas. 
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PREMIOS MARKETING 86-87 


RESULTADOS 

PROVISIONALES 

INFORMATICA PERSONAL - TU MICRO AMSTRAD 
TU MICRO COMMODORE 


LA MEJOR CAMPANA DE PUBLICIDAD 


Periféricos/Accesorios 

Ordenadores 

Programas 

1. NEC (Omnilogic) 

Amstrad (Indescomp) 

Microbyte 

2. IDEAssociates (Omnilogic) 

Ericsson 

Soft Express 

3. DK'Tronics (Comercial Hernao) 

Commodore Amiga (Microelectrónica y Control) 

GEM (Casa de Software) 

4. Ofites Informática 

Bull 

Dro Soft 


EL MEJOR ANUNCIO 


Periféricos/Accesorios 

Ordenadores 

Programas 

1. NEC Pinwriter (Omnilogic) 

Amstrad PCI 512 (Indescomp) 

MS Word (Intertec) 

2. Soportes mag. (3M) 

Amstrad PCW8512 (Indescomp) 

Zombi (Soft Express) 

3. Lápiz óptico (Ofites) 

Gama Toshiba (Española de Microordenadores) 

Turbo Prolog Borland (Micronet) 

4. Kyocera (Dirac) 

LA MEJOR GAMA DE PRODUCTO 

Word Perfect (Keylan) 

Mail Order Masters (Dro) 

Periféricos/Accesorios 

Ordenadores 

Programas 

1. D.S.E. 

Amstrad (Indescomp) 

Micronet 

2. Calcomp 

Toshiba (Española de Microordenadores) 

Mastertronic (Dro Soft) 

3. DK'Tronics (Comercial Hernao) 

Tandon 

Logic Control 

4. Ofites Informática 

Commodore (Microelectrónica y Control) 

Erbe Software 


EL MEJOR PRODUCTO 


Periféricos/Accesorios 

Ordenadores 

Programas 

1. Pinwriter P5XL (Omnilogic) 

IBM XT-286 

Word Perfect 

2. Conv. monitor/TV (DK'Tronics) 

Amstrad PCI 512 (Indescomp) 

Lotus 1 -2-3 

3. Modem Nightingale 



(Agroinformática y Comunicaciones) 

Compaq. Deskpro 386 

Minja (Dro Soft) 

4. Compacto Microgayma (Gayma) 

Epson PC 

Asphalt (Soft Express) 


Las votaciones de los lectores 
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PERSONAL, TU MICRO AMS¬ 
TRAD y TU MICRO COMMO¬ 
DORE de Ediciones INGELEK. 
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Alkerke 


Los juegos de salón han sido siempre un gran entretenimiento para la hu¬ 

manidad. Sólo desde hace poco, los ordenadores domésticos van cambian¬ 
do nuestra forma de jugar. Incluso así, aún sigue siendo entretenimiento pa- 
sar una tarde con el parchís o la oca... aunque no tanto como con el Alkerke. 


n esta ocasión, os traemos 
un programa «de salón». AL¬ 
KERKE está basado en el Al- 
querque de nueve, un juego 
oriental muy poco conocido, 
pero de gran dificultad y elegancia... si es 
que a hacer tres en raya se le puede llamar 
elegante. 

El programa está pensado para dos par¬ 


ticipantes, y se juega sobre un tablero con¬ 
sistente en tres cuadrados unidos por la 
parte central de los lados. Cada jugador 
dispone de 9 fichas, que podrá colocar, por 
turno, en cada una de las intersecciones del 
tablero. 

El objetivo es... ¡hacer tres en raya! (¿has 
dicho sencillo? Ya verás, ya...). Las tres en 
raya pueden conseguirse en vertical, hori¬ 


zontal, o en cada una de las líneas de unión 
de los cuadrados (las diagonales no valen). 
Cada vez que uno de los jugadores logra 
hacer tres en raya, puede quitarle al con¬ 
trincante cualquiera de las fichas que tenga 
sobre el tablero; pierde el jugador que lle¬ 
gue a quedarse con dos fichas. 

Pero... Hay un detalle: cada jugador no 
puede hacer tres en raya en la misma posi¬ 
ción dos veces. Es decir, si por ejemplo con¬ 
seguimos la jugada en el lado superior, ya 
no podemos volver a hacerlo en ese mismo 
lado (aunque nuestro adversario sí, si no lo 
ha hecho previamente). Las demás posicio¬ 
nes del tablero siguen siendo utilizables (y 
hay 16 posibles posiciones... ¡sobran!). 






g y y i jl t 


V y 

9 


y vi / \ n. 1 ^ ^ 




i crb 
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Un juego, dos partes... 

El juego en sí puede considerarse dividi¬ 
do en dos fases: una primera, que llamare¬ 
mos salida, en la cual los jugadores van po¬ 
niendo las fichas sobre el tablero, y el juego 
propiamente dicho. En la primera fase, las 
fichas se depositan sobre una posición del 
tablero, no existiendo ninguna regla que li¬ 
mite su movilidad, y con la posibilidad, por 
supuesto, de hacer tres en raya... si el con¬ 
trario lo permite. Lo único que está prohibi¬ 
do es mover una pieza del tablero hasta 
que se hayan sacado todas (y hay 9). 

Cada jugador, alternativamente, pone 
una ficha. Esta fase es de gran importancia, 
pues a menudo, de ella depende después 
que un jugador esté en posición favorable 
para la defensa o el ataque (un consejo: 
evita las esquinas de los cuadros y busca 
las intersecciones con el cuadro central... 
De nada). 

Al situar la última ficha, comienza la se¬ 
gunda fase, donde la materia gris a veces 
degenera a negro. Ahora sólo es posible 
mover las fichas dentro del tablero, sobre 
las líneas del mismo, pero atención: no po¬ 
demos pasar por ninguna intersección que 


esté ocupada por otra ficha, nuestra o del 
adversario. La necesidad de buscar, ¡o de 
abrir!, un camino de una posición a otra, 
confiere al juego una alta dosis de estrate¬ 
gia o, si se recurre al martillo contra el con¬ 
trario, de ejercicio físico. 

Una vez que se toca una ficha, debe mo¬ 
verse, como en las partidas (serias) de aje¬ 
drez; en caso de no querer mover, pode¬ 
mos tocar una ficha y dejarla en su posi¬ 
ción. 

Y esas son todas las reglas; nada difíci¬ 
les, como podemos ver. 


Alkerke y un commodore 

El paso del alquerque de nueve a ALKER¬ 
KE es directo. Tendremos, en primer lugar, 
la opción de emplear ¡oystick (uno en cada 
port para cada jugador, o bien uno sólo a 
compartir) o teclado (desgraciadamente, 
uno sólo a compartir), así como el color de 
las fichas de cada jugador. 

A continuación, estaremos ante el table¬ 
ro de juego. En la primera fase, una mano, 
del color del jugador que en ese momento 


deba mover, aparecerá en la zona central 
del mismo. Podemos desplazarla para co¬ 
locar la ficha en la posición deseada, lo 
cual se consigue pulsando «fuego» en el 
¡oystick (o RETURN en el teclado). 

Si se produce tres en raya, por supuesto, 
en una posición libre, el ordenador avisará, 
y permitirá al (por el momento) ganador reti¬ 
rar una de las fichas del contrario. 

Posteriormente, ya en la fase de juego, la 
mecánica es la misma: movemos la mano 
hasta tocar la ficha a mover, y pulsamos 
«fuego» (o RETURN). Hecho esto, podemos 
mover nuestra ficha, pero, observaremos 
que ahora no es posible sacarla del tablero 
y que tozudamente se negará a pasar por 
encima de una compañera. 

Los posibles errores (o intentos tímidos de 
falsificar el transcurso del juego, es decir, 
trampas) serán señalados por un aviso so¬ 
noro para ser ignorados a continuación. 

Gana el jugador que primero consigue 
dejar a su rival con dos fichas. A continua¬ 
ción podremos elegir entre terminar o se¬ 
guir con otra partida. 

Y nada más; te dejamos para que tu ha¬ 
bilidad y tu Commodore lleven la derrota a 
cualquier adversario alkerkiano al que te 
enfrentes... 


LISTADO 

i REn ************************* 

-143- 

270 

PRINT n CH0niCYELlC6 ESPUFASE 1: SALIDA 

”11 

2 REH * ALKERKE * 

-233- 



-005- 

3 REH * UERSION 1.1 * 

-065- 

200 

F«1:J-l:GOSUB650:GOSUB350:GOSUB660 

-093- 

4 REn * (C) SINDIN SOFT * 

-193- 

290 

F-l:J»2:GOSUB650:GOSUB350:GOSUB660 

-095- 

5 REn * 1987 TU niCRO COnnODORE * 

-238- 

300 

NEXT 

-242- 

B REn ************************* 

-140- 

310 

PRINT”CH0N>CYEL)C6 ESPUFASE 2: JUEG0H4 ESP!” 

7 : 

-145- 



-187- 

10 6OTO990 

-092- 

320 

F“2:J-l:GOSUB650:GOSUB350:GOSUB660 

-089- 

20 IFLU-1147THENTC0,l)-nD:RETURN 

-006- 

330 

F-2:J-2:GOSUB650:GOSUB350:GOSUB660 

-091- 

30 IFLU-1156THENT(0,2)-nD:RETURN 

-000- 

340 

GOTO310 

-132- 

40 IFLU-1165THENT(0,3)«nD:RETURN 

-010- 

350 

SCJ)—(F-l) 

-021- 

50 IFLU-1507THENT C 0,4 )-ND:RETURN 

-012- 

360 

□N-(NJ-.)GOTO590:I-PEEK(J(J))AND31 

-000- 

60 IFLU-1525THENTC 0,5) “ND:RETURN 

-014- 

370 

X-X-8*C CIAND0)-.ANDX<300)+8*((IAND4)“ 

.ANDX>25) 

70 IFLU“1867THENT(0,6)“ND:RETURN 

-025- 



-075- 

80 IFLU-1876THENTC0,7)“ND:RETURN 

-027- 

380 

Y-Y-8*((IAND2)-.ANDY<220)+0*((IAND1)- 

. ANDY>50) 

90 IFLU“18B5THENT(0,8) “ND:RETURN 

-029- 



-070- 

100 IFLU-1270THENTC1,1)-ND:RETURN 

-051- 

390 

0N-(F-2ANDS(J)-l)GOTO400:GOTO450 

-148- 

110 IFLU-1276THENT(1,2)-ND:RETURN 

-059- 

400 

L-PEEKÍ1024*INT C(X-21)/8)+40*INT((Y-36)/0)) 

120 IFLU-1282THENTC1,3)-nD:RETURN 

-058- 



-029- 

130 IFLU-1510THENTC1,4)“ND:RETURN 

-054- 

410 

IFL< > B1THENIFL< >64THENIFL< >93THEN430 

-023- 

140 IFLU-1522THENTC1,5)“ND:RETURN 

-059- 

420 

GOTO450 

-136- 

150 IFLU“1750THENT(1,6)-ND:RETURN 

-064- 

430 

X-X+B*(CIANDB)-.ANDX<300)-8*((IAND4)- 

. ANDX>25) 

160 IFLU-1756THENT(1,7)“ND:RETURN 

-072- 



-072- 

170 IFLU-176ETHENTC1,8)“ND:RETURN 

-071- 

440 

Y-Y+B*C CIAND2)-.ANDY<220)-8*((IAND1)- 

. ANDY>50) 

180 IFLU“1393THENT(2,1)-ND:RETURN 

-066- 



-067- 

190 IFLU-1396THENTC2,2)“ND:RETURN 

-071- 

450 

0N-((IAND16)<>.ORSS-1)GDTO520:S(J)“-(S(J)-.ANDF<3 

200 IFLU“1399THENT(2,3)“ND:RETURN 

-067- 

) 


-153- 

210 IFLU-1513THENTC2,4)“ND:RETURN 

-057- 

460 

IFCU-B1ANDS(J)-.ANDF < 3THENND-J:GOSUB20:GOSUB1590: 

220 IFLU-1519THENTC2,5)“NO:RETURN 

-065- 

RETURN 

-066- 

230 IFLU“1633THENT(2,6)“ND:RETURN 

-064- 

470 

IFCU< >81ANDS(J)-.ANDF<3THENS(J)-l:GOSUB1670:G0T05 1 

240 IFLU-1636THENT(2,7)-ND:RETURN 

-069- 

20 


-151- 

250 IFLU“1639THENT(2,8)“ND:RETURN 

-074- 

480 

IF ( CU< > ( 176-*- J ) ) ANDS ( J ) -1 ANDF< 3THENS ( J ) - . : G0SUB167 

260 F0RII-1T09 

-123- 

0 


-218- 
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430 IFCCU-C17B+J))ANDSCJ3-1THENCU-B1:KU-5:MD-.:G0SUB2 
0 -013- 
500 IFCCU-C177-CJ-1))ANDF-3)THENMD-.:GOSUB20:PDKELU,B 
1: POKELU+O,5 -231- 
510 IFCCU-C177-CJ-1)1ANDF-3)THENGOSUB1530:GGSUB1570:R 
ETURN -059- 
520 IFCIAND16)-.THENSS- . -197- 
530 POKEU, XAND255: POKEU+16, -C CXAND256)<> . ) : POKEU+1, Y 

-140- 

540 LN-1024+1NTC CX-21)/0)+40*INTCCY-36)/0):ON-CLN-LU) 
GOTO350 -154- 
550 ON-CSCJ)-.3GOTO560:PDKELU,CU:POKELU+O,KU 

-036- 

560 LU-LN:CU-PEEK(LN):KU-PEEKCLN+O):IFSCJ)-.THEN360 

-224- 

570 POKELN,176+J:POKELN+O, CC J):GDTO360 -007- 
5B0 GOTD360 -143- 
530 GETAS:1-31:IFAS-CHRSC133THENI-IAND15 -127- 
600 IF AS-”íDCH3"THENI -1AND23 -126- 
610 IFAS-”CIZQ3”THENI-IAND27 -003- 
620 IF AS-”CARB3”THENI -1 AND30 -242- 
630 IFA$- ,, CABJ3 ,, THENI-IAND29 -123- 
640 GQTD370 -141- 
650 PRINT”CHOM3C15 ABJ3 ”SPCC30)N$CJ) : RETURN -035- 
660 □ -.:F0RA-.T02 -026- 
670 IFTCA, 13-JTHENIFTCA, 23-JTHENIFTCA, 3)-JTHENIFHC J, 3 
*A)".THEN630 -205- 
600 GOTD700 -142- 
630 Q-3*A:A-3:GOTO790 -233- 
700 IFTCA,1)-JTHENIFTCA,4 ) -JTHENIFTCA,6 ) =JTHENIFHCJ,3 
♦A+23-.THEN720 -035- 
710 GÜTO730 -133- 
720 Q-3*A+2 : A-3: GOTO790 -064- 
730 IFTCA,6)-JTHENIFTCA.7)-JTHENIFTCA.B)=JTHENIFHC J, 3 
*A+1)".THEN750 -050- 
740 GDTO760 -145- 
750 Ü-3*A+1:A-3:GOTO790 -066- 
760 IFTCA,3)-JTHENIFTCA,5)-JTHENIFTCA,B)-JTHENIFHCJ,3 
*A+3)“.THEN700 -053- 
770 GOTO790 -151- 
700 Q-3*A+3:A-3:GOTO790 -071- 
790 NEXT -255- 
000 IFA>3THENHCJ,G)-l:F-3:GDSUB940:J-l-CJ-l):GDSUB159 
0:J-1-(J-1) -022- 
010 IFA> 3THENGOSUB350:GOSUB960:DN-CF Cl-CJ-1))< 33G0T01 
620:RETURN -120- 
020 IFT(0,23-JTHENIFTC1,23-JTHENIFTC2,2)*JTHENIFHCJ , 1 

2) ".THEN040 -092- 
030 GDTG050 -145- 
040 A-4:Q-12:GOTDB00 -164- 
050 IFTC0,73-JTHENIFTC1,7)-JTHENIFTC2,7 3-JTHENIFHCJ,1 

3) ".THEN070 -114- 
060 GOTO0B0 -151-’ 
070 A-4:Q-13:GOTO000 -160- 
000 IFTC0,43-JTHENIFTC1,43-JTHENIFTC2,43-JTHENIFHCJ,1 
4 3-.THEN300 -103- 
090 GOTO910 -140- 
900 A—4:□—14:GOTO000 -163- 
910 IFTC0,5)"JTHENIFTC1,53-JTHENIFTC2,53-JTHENIFHCJ,1 
53-.THEN930 -104- 
920 RETURN -155- 
930 A-4:Q-15:GOTO000 -167- 
940 PRINT”CH0N2C24 ABJ1C3 -3 HA5 HECHO 3 EN RAYA, JUG 
AD0R”J”C3 -DCHOni” -022- 
950 GOSUB1670:RETURN -030- 
960 PRINT”CH0n>C24 ABJ3C3B ESPD CHOfl} ” -014- 
970 A-l-CJ-1):FCA3-FCA)-1:POKEPCA,13+FCA),32:RETURN 

-120- 

900 RETURN -161- 
990 POKE532B0,0:POKE53201,.:GOSUB1710:PRINT”CCLR3”:U- 
53240:0-54272:POKEU+29,1 -133- 
1000 DinTC2,0),HC2,15),PC2,1):CC13-5:CC23-1:FORI-.T02 
:FORJ-1TO0:TCI, J 3 - . -033- 
1010 NEXT:NEXT:FORI-.T02:FORJ-.T015:HCI,J3-.:NEXT:NEX 
T -010- 
1020 PCI,.3-1099:PC2,.5—1259:PC1,1)—1171:PC2,11—1331 

-115- 


1030 F0RI-1T02:PRINT”Í0 ABJ3C6 ESP3 CGRN3 CR0N3 COLOR D 
EL JUGADOR ”I”CIZQ} C2/03? ” -077- 

1040 GETAS:ON-CA$<”2”0RA$>”0”3GOTO1040:CCI3-UALCAS 3-1 
:NEXT -024- 

1050 NJ-.:PRINT”CCLR3Í0 ABJ3C6 ESP3CGRN3CR0N3 JOYSTIC 
K O TECLADO CJ/T3? ” -103- 

1060 GETAS:ON-CAS-”J”ORA$-”T”3GOTO1070:GOTO1060 

-199- 

1070 ON-CA$-”T”3G0T01170 -063- 

1000 PRINT”Í2 ABJ3C11 ESP3 CGRN3 CR0N3 JOYSTICKS Cl/2) 

” -114- 

1090 GETAS:ON-C AS-”1”QRA$-”2”)GOTO1100:GOTO1090 

-140- 

1100 NJ-UALCA$):PRINT”C2 ABJ3CRON3C5 ESP3M0UED LA NAN 
O CON EL JOYSTICK,C5 ESP3”; -234- 

1110 PRINT”C4 ESP3<FUEGO> PARA COGER / DEJAR FICHA.C3 
ESP3” -214- 

1120 IFNJ>1THEN1190 -116- 

1130 PRINT”C2 ABJ3C14 ESP3ÍGRN3CR0N3 PORT Cl/2) ” 

- 000 - 

1140 GETAS:ON-(A$-”1”ORA$-”2”)G0T01150:GOTO1140 

-137- 

1150 IFAS-”1”THENJCID-56321:JC2)-J(1):GOTO1200 

- 012 - 

1160 JC13-56320:J(2)-JC1):GOTO1200 -055- 

1170 PRINT”C2 ABJ3CRON3USA TECLAS DE CURSOR PARA HOUE 
R LA MANO,”; -166- 

1100 PRINT”C3 ESP3<RETURN> PARA COGER / DEJAR FICHA.C 
3 ESP3” -039- 

1190 IFNJ-2THENJ(13-56321:JC23-56320 -254- 

1200 PRINT”C2 ABJ3C11 ESP3CGRN3CR0N3 PULSA UNA TECLA 


” : POKE190 , . : LIA I T 190,1 

1210 PRINT”CCLR3CGRN3C24 ESP3 

1220 PRINT”C24 ESP3!-!JUGADOR 1 


1230 PRINT”C24 ESP3<0>!13 *!<l 
1240 PRINT”C3 ESP3!O¡:0 *!!□! 

3 CRON3123456709CROF3 C 2 ESP3 1- 


-139- 

u:¡13 *:11: ” ; 

-031- 

CR0N3C3 ESP3CROF3¡-Í 
- 102 - 

”; -040- 


0 *!¡01C2 ESP3!- 


!C 2 ESP 
-225- 

1250 PRINT”C3 ESP3!-!CB ESP31-1C0 ESP3¡-!C2 ESP3<0>!1 


! <U> 


-105- 


1260 PRINT”C3 ESP3I-IC0 ESP3!-!C0 ESP3I-1C2 ESP3!-!JU 


GADOR 2:CR0N3C3 ESP3 CR0F3!-! 

1270 PRINT”C3 ESP3!-!C2 ESP3!Q¡:5 *¡!0: 
3 ¡ - ! C2 ESP3<□> ! 13 * !<UI> 

1200 PRINT”C3 ESP3!-!C2 ESP3! 

ESP3 ! - ! C2 ESP3 !■ 


¡ 5 


-162- 
!!□!C2 ESP 
- 001 - 
C5 ESP3! — !C2 


! C2 
-030- 
¡ □ ¡ ! 2 * 
-lis¬ 
ies ESP3I-IC2 
-095- 


■!C5 ESP3 

-1C2 ESP3 CR0N31234567B9CR0F3 C2 ESP3 I 
I -131 

1290 PRINT”C3 ESP3I-IC2 ESP3I-IC5 ESP3I-IC5 ESP3I 
ESP3I-IC2 ESP3IJSI13 *¡!KI ” ; 

1300 PRINT”C3 ESP3I-IC2 ESP3I-IC2 ESP3I0: 

IIQIC2 ESP3I-IC2 ESP3I-IC10 ESP3”; 

1310 PRINT”C3 ESP3I-IC2 ESP3I-IC2 ESP3 
ESP3I-IC2 ESP3I-IC10 ESP3”; 

1320 PRINT”C3 ESP3I-IC2 ESP3I-IC2 ESP3I-IC5 ESP3I-IC2 
ESP3I-IC2 ESP3I-IC2 ESP3IUII13 *!II! -222- 

1330 PRINT”C3 ESP3IQII2 *!!Q!!2 *IIQIC5 ESP3IQII2 *!! 
□ 112 * I IQIC 2 ESP3I-IC3 ESP3JUGANDOC 3 ESP3I-! ”; 

-1B7- 

1340 PRINT”C3 ESP3I-IC2 ESP3I-IC2 ESP3I-IC5 ESP3I-IC2 
ESP3I-IC2 ESP3I — IC2 ESP3<0>!13 *!<U> -160- 

1350 PRINT”C3 ESP3I-IC2 ESP3I-IC2 ESP3I-IC5 ESP3I-IC2 
ESP3I-IC2 ESP3I-IC2 ESP3I-IC13 ESP3I-I -221- 

1360 PRINT”C3 ESP3I-IC2 ESP3I-IC2 ESP3IQII2 * I IQI 12 * 
IIQIC2 ESP3I-IC2 ESP3I-IC2 ESP3I-IC5 ESP3<2 +>C6 ESP3 
I - I ”; -003- 


1370 PRINT”C3 ESP3I-IC2 ESP3I-IC5 ESP3I- 
ESP3I-IC2 ESP3I-IC6 ESP3<+>C6 ESP3I-! ” 
1300 PRINT”C 3 ESP3I-IC2 ESP3I-IC5 ESP3I - 
ESP3I-IC2 ESP3I-IC6 ESP3<-*->C6 ESP3I-I ” 
1390 PRINT”C3 ESP3I-IC2 ESP3iai!5 ♦I IQI I 
3S-IC2 ESP3I-IC6 ESP3<-*->C6 ESP3I-! ; 


C5 ESP3I-IC2 
-160- 
C5 ESP3I-IC2 
-169- 
*! I□IC2 ESP 
-190- 


1400 PRINT”C3 ESP3I-ICB ESP3I-IC0 ESP3I-IC2 ESP3I-IC6 
ESP3<+>C6 ESP3I-! ”; -040- 

1410 PRINT”C3 ESP3S-IC0 ESP3I-IC0 ESP3I-IC2 ESP3I-IC5 
ESP3<3 +>C5 ESP3I-! "; -053- 

1420 PRINT”C3 ESP3IQII0 *!!Q!!0 *!!QIC2 ESP3I-IC13 ES 
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PD!-! -120- 

1430 PRINT”C 24 ESP3!-!C13 ESP3!-! ”; -110- 

1440 PRINT”C24 ESP3!J!¡13 *!!K! CHON)”; -125- 

1450 F(1)“9:F(2)“9:FORI-032TOI+63:READA:POKEI,A:NEXT: 
POKE2040,13 -003- 

1460 F0RI*1T02:FORJ“.TG2:POKEPCI,.3+J+O,CCI):NEXT:NEX 
T -160- 

1470 FÜRI-1TÜ2:FORJ-.TOB:POKEPC1,1)+J+O,CCI):NEXT:NEX 
T -170- 

1400 J“2:GOSUB1590:POKEU+21,1 -217- 

1490 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3 -159- 

1500 DATA240,0,31,255,120,95,255,252,190,255,255,240, 
15,255,64,119 -007- 

1510 DATA255,0,233,255,1,200,255,1,233,255,0,231,240, 
0,95,192 -247- 

1520 DATA0,63,120,0,62,0,0,0,0,0,0,0,0,0,0,0 

-114— 

1530 FORIJ-54272T054295:POKEIJ,0:NEXT:P0KE54296,15:PO 
KE54277,0 -252- 

1540 N$Cl)-”<2 + > CABJ)C3 IZO) <+> CABJ)C3 IZQ) <+> C 
ABJ)C3 IZQ) <+> CDCH)CABJ)C3 IZO) <+> CABJ)C3 IZ0X3 + 
>” -210- 
1550 N$C2)“” <+> CABJ)C3 IZQ)<+> <+>CAEJ)C3 IZQ)C2 ES 
P3<+> CABJ)C3 IZO) <+> CABJ)C3 IZQX+>C2 ESP3CABJ)C3 I 
ZO)< 3 +>” -223- 

1560 LU-1024+ C X-21 ) /0+40* I NT ( C Y-40 ) / 0) : CU-PEEKC LU ) 

-020- 

1570 KU-PEEKCLU+O) -093- 

1500 GOTO260 -191- 

1590 CE-CC2):X-96:Y-176:IFJ-2THENY-104:CE*CC1) 

-190- 

1600 POKEU , . : POKEU-*-l , Y : POKEU+16 , -C CXAND256)<> . ) : POKEU 
+39,CE -044- 

1610 LU«1024+CX-21)/0+40*INTCCY-40)/0):CU=PEEKCLU):KU 
-PEEKCLU+O):RETURN -220- 

1620 POKEU+21PRINT”CCLR)CPUR) C6 -3 HA UENCIDO EL 
JUGADOR C6 -3 ” -106- 

1630 PRINT”CH0n)C5 ABJ)”SPCC17)N$CJ) -207- 

1640 PRINT”C2 ABJ3C7 ESP3 CUJHT)DESEAIS JUGAR ÑAS CS/N) 
?” -219- 

1650 GETAS:IFA$=”S”THENRUN -007- 

1660 ON-CA$<>”N")GOTO1650:PRINT”CCLR)PUES ADIOS!”:END 

-027- 

1670 FORIJ-54272T054295:POKEIJ,0:NEXT:P0KE54296,15:PO 
KE54277,0 -001- 

1600 POKE54270,255:P0KE54276,23:LO-2:FORIJ-1T03:LH-0: 
P0KE54273,LO -166- 

1690 FORIK-1T03:POKE54207,LH:LH-LH*1.6:NEXT:LO-LO+1.9 
:NEXT -161- 

1700 FORIK-1T05:POKE54207,LH:LH“LH*1.00:NEXT:P0KE5427 
0,15:RETURN -004- 

1710 PRINT”CCLR)C0 ESP3 CRON)CRED)SINDIN SOFT PRESENTA 
í 3 .3 ÍR0F)C9 ESP3”; -149- 

1720 PRINT”CABJ)C13 ESP3CYEL)!N!<G>CRON)CPUR)¡\! ¡NIC 
ROF) CRON)CPUR) ! N ¡ <*> CROF)C2 ESP3 CYELXN> ! N ! C 15 ESP3 ” 

; -205- 

1730 PRINT”C12 ESP3CYEL)¡N!<N> CRON)CPUR)!\¡CYEL)C2 ES 
P3 CPUR) ! 2 N ! <G> CYEL) CR0F)C3 ESP3 CYELXG> ! N ! í 14 ESP3 ” 
; -020- 


1740 PRINT”C 11 ESP3 CYEL) ! N ! ¡Ni CRON) CPURXN! CYEL) C 
PUR) <G> CYEL) CROF)C 3 ESP3CYEL)!N! !N!C13 ESP3”; 

-053- 

1750 PRINT”C10 ESP3 CYEL)¡N! ¡N¡ CR0N)C4 ESP3CPUR) <G> 

CYEL) CR0F)C4 ESP31N! !N!C12 ESP3”; -176- 

1760 PRINT”C9 ESP3 CYEL)!N¡ ¡N!C2 ESP3CRON) CPUR) CROF 

) CRON)CYEL) CPUR) <G> CYEL) CPUR)C2 ESPX*>CR0F)C2 ES 
P3 CYEL)¡N! ¡NIC11 ESP3”; -136- 

1770 PRINT”C0 ESP3CYEL)¡N¡ ¡NIC3 ESP3CRON) CROF)CPUR) 
!\! CRON)CYEL) CROF)CPUR)!\I<*>CRON)CYEL)C4 ESP3CROF) 

C3 ESP31NI ¡NIC10 ESP3”; -120- 

1700 PRINT”C7 ESP3 CYEL)¡N¡ !N¡ CRON)CPUR)!\¡ ¡N¡CROF) 

CRON)CPUR)!\!¡N!CROF)CYEL) CRON)CPUR)¡\¡C2 ESP3<*>CRO 
F)CYEL) CRON)CPUR)!N rC2 ESP3<*>CR0F)CYEL)C2 ESP3!N¡ ! 

NIC9 ESP3”; -076- 

1790 PRINT”C6 ESP3INI ¡N!C2 ESP3CRON) CPUR) !\!CYEL) 
CROF)CPUR) ! \ ¡ CRON)CYEDC4 ESP3CROF) CRON)CPUR) CYEL) 

C 3 ESP3CPUR)<*> CROF) C 2 ESP3CYEDÍN! !N!C6 ESP3 CPUR3C2 
ESP3”; -244- 

1000 PRINT”C5 ESP3 CYELXN> ¡N!C3 ESP3CRON) CPUR) ¡ N ! C Y 
EL) CROF)CPUR) ! \ ¡ C2 ESP3 CRON)CYEL) CPUR) CR0FH3 ESP3 
CRON)CPUR) CYEL) CPUR) ¡NiCYEL) CR0F)C3 ESP3IN! <G>C7 
ESP3”; -070- 

1010 PRINT”C5 ESP3CYELXN> ¡N! C4 ESP3CRON)C2 ESP3CPUR) 
¡2 N!CR0F)C2 ESP3CRON)CYEL)C2 ESP3CROF)C3 ESP3CRON)CP 
UR) CYEL)C 3 ESP3 CR0F)C5 ESP3!N!<G>C7 ESP3”; -103- 

1020 PRINT”C5 ESP3<N> ¡NIC3 ESP3CRON)CYEL) CPUR) CYEL 
) CPUR)¡2 N¡CROF) CRON)CYEL) CPUR)¡N¡ <*>CROF) CRON)C 
PUR) CYEL) CROF)CPUR)<*> CRON)CYEL) CPUR)<*>CR0F)C3 ES 
P3 CYEL)!N! <G>C7 ESP3”; -145- 

1030 PRINT”C6 ESP3¡n¡ ¡n¡C2 ESP3CRON) CROF)CPUR)!\¡ C 
RON)CYEL) CROF)CPUR)!\¡ CR0N)CYEL)C4 ESP3CROF) CPURX 
*> CRON)CYEL) CROF) CPURX*>CRON)CYEL) CR0F)C2 ESP3CYE 
L)¡N! ¡N!C0 ESP3”; -240- 

1040 PRINT”C7 ESP3CYEL)!N¡ m¡C4 ESP3CRON)CPUR)!\¡ ¡N¡ 
CROF) CRON)CPUR)!\I ¡N¡ ¡M!C3 ESP3<*>CR0F)C4 ESP3 CYEL)¡ 
N! !N¡C9 ESP3”; -069- 

1050 PRINT”C0 ESP3¡N¡ !M!C3 ESP3CRON)CYEL) CPUR) !\!C 

YEL) CROF) CPUR) ! \ ! CRONXG> CYEL)C4 ESP3CROF)C3 ESP3IN! 

¡NiC10 ESP3"; -161- 

1060 PRINT”C9 ESP3¡n¡ ¡H!C2 ESP3CRON) CPUR)¡N!CYEL) C 
ROF)CPUR)!\! CRON)CPUR)<G> CYEL) CPUR)<*>CR0F)C4 ESP3C 
YEL)¡N! !N¡C11 ESP3”; -190- 

1070 PRINT”C10 ESP3!N¡ ¡N! CR0N)C2 ESP3CPUR)¡2 N1CROF 
) CRON) CPURX G> CYEDC2 ESP3CROF)C3 ESP3 ! N ¡ ¡NIC12 ESP 
3”; -177- 

1000 PR INT ”C 11 ESP3ÍH! < G> CRON) CPUR) CYEL) CPURX2 N 
¡<G> CYEL) CPUR)C2 ESP3<*>CROF)CYEL)<n> ¡NIC13 ESP3”; 

-006- 

1090 PRINT”C12 ESP3¡N¡<G> CRON) CROF)CPUR)!\¡ CRON)CYE 


¡<*>CR0N)CYEL)C4 ESP3 CROF)< N>¡NIC 14 ES 

-167- 

1907 - TU niCRO COnnODORECS ESP 

-105- 

1910 PRINT”C 6 ESP3 CRON)CGRN)PULSA UNA TECLA PARA EHPE 
ZAR.CROF3C5 ESP3CHOM)”; -220- 

1920 POKE190,.:UAIT 190,1:POKE190RETURN -036- 


L) CROF)CPUR)¡ 
P3CABJ)”; 

1900 PRINT”C6 ESP3CC) 
3 CABJ)”: 


READY. 


-173- 
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TU MICRO 
COMMODORE ha 
creado el 
revolucionario 
sistema de 
introducción de 
programas fuera 
ERRORES. Estenos 
permitirá 
introducir, sin 
temor alguno al 
esfuerzo inútil, 
cualquier listado 
por largo y 
complicado que 
parezca. 


Para adoptar los listados publicados bajo este sistema, 
deberemos seguir las siguientes normas: 

1) Es fundamental transcribir EXACTAMENTE el listado 
reproducido, incluyendo todos sus espacios, aunque se trate 
de separaciones entre número de instrucción y línea de ins¬ 
trucción. 

2) Todas las líneas finalizarán con un número de tres 
dígitos, encerrado entre guiones, que NO deberá ser introdu¬ 
cido, puesto que no forma parte del programa, sino que tiene 
la finalidad de hacer funcionar el sistema FUERA ERRORES, 
según veremos más adelante. Para evitar equivocaciones, 
dicha cifra entre guiones se sitúa en el margen derecho del 
final de la línea BASIC a la cual corresponde, a una distancia 
prudencial del mismo. 

3) Para facilitar la introducción de símbolos difícilmente 
interpretables, se procede a la siguiente representación en 
los listados. 

- Las letras aparecidas entre menor y mayor deberán 
ser introducidas con pulsación simultánea de la tecla COM¬ 
MODORE y la letra representada. Ej. : < M > =C0MM0D0- 
RE M. 

- Las letras aparecidas entre barras verticales deberán 
ser introducidas como pulsación simultánea de la tecla 
SHIFT y la letra representada. Ej.:IKI= SHIFT K. 

- Entre corchetes simples se representarán los símbolos 
que se obtienen por pulsación directa de la tecla, aunque ló¬ 
gicamente, este caso sólo se dará para indicar las sucesio¬ 
nes de más de una letra. Así por ejemplo, la introducción de 
5 asteriscos se representaría por [5*]. 

- Para la repetición de símbolos obtenidos mediante las 
teclas COMMODORE o SHIFT, se seguirá una combinación 
de las tres normas anteriormente citadas. Así por ejemplo, la 
introducción de 10 símbolos COMMODORE H, se represen¬ 
taría por [ < 10 H > ]. 

- Para evitar confusiones, cuando se utilice el sistema 
de representación de sucesiones de carácter, y éste sea un 
espacio, se utilizará la abreviatura ESP. [15 ESP] = 15 espa¬ 
cios. 

- Los caracteres de control, tales como desplazamientos 
del cursor, colores, estados de reversa y funciones, se sim¬ 
bolizarán por una abreviatura de tres letras (dos más un es¬ 
pacio en el caso de las funciones) encerradas entre llaves, tal 
como se señala en la tabla adjunta. 

Para introducir cualquier listado por el sistema FUERA 
ERRORES, deberemos entrar previamente y ejecutar el lista¬ 
do BASIC que aparece en la página siguiente por lo cual es 
recomendable conservar una copia grabada del mismo, para 
sucesivas ocasiones. Una vez introducido este listado, ya sea 


por el teclado, o a través de cinta o disco, debemos ejecutar¬ 
lo con RUN. Instantes más tarde aparecerá en la pantalla el 
mensaje FUERA ERRORES! y el cursor libre para la entra 
da de programas, con el tradicional READY. Por encima, lo 
cual indicará la activación del sistema de depuración de 
errores. 

En virtud al NEW que finaliza línea 20 del programa 
¡FUERA ERRORES!, éste habrá desaparecido de la memoria, 
y seremos libres para introducir cualquiera de los programas 
listados en la sección TECLA A TECLA de cualquier núme¬ 
ro de nuestra revista, o incluso aquellos que apareciendo en 
otras secciones se acojan a este sistema. Así pues, si el pro¬ 
grama ¡FUERA ERRORES! ha desaparecido de la memoria, 
¿qué hemos conseguido ejecutándolo? Bien, la respuesta se 
llama informáticamente INTERRUPCION: se trata de una 
técnica de programación en código máquina que permite 
que el ordenador efectúe prácticamente dos trabajos a un 
tiempo, o más correctamente, que ejecute determinada tarea 
de forma automática, sin necesidad de que le prestemos una 
atención constante, de forma similar al proceso de respira¬ 
ción en un humano. 

Efectivamente, aunque el soporte BASIC ha desaparecido 
de la memoria, antes de (marcharse) ha dejado funcionando 
en modo interrupción la pequeña rutina en código máquina 
que se hallaba en sus DATAS. Para comprobarlo pulsa RE 
TURN; observarás algo muy extraño: tu ordenador no se 
comporta normalmente, no sólo desciende una línea el cur¬ 
sor, sino que además hace aparecer un número en la esqui¬ 
na superior izquierda de la pantalla. A continuación veremos 
como emplearlo. 

Cada vez que pulsemos RETURN, aparecerá un número 
en la mencionada zona de la pantalla, y éste corresponderá 
con la instrucción que hayamos introducido. Esto forma parte 
del sistema de FUERA ERRORES. Cuando introduzcamos 
cualquier línea de un listado de este tipo, deberemos fijarnos 
en el número que aparece al pulsar RETURN de fin de línea; 
si éste coincide con el que aparece en el listado al final de la 
línea, ésta habrá sido introducida correctamente, en caso 
contrario existe algún error de tecleado que debemos modi¬ 
ficar. Para modificar una instrucción errónea, no tenemos ni 
tan siquiera que volver a teclearla si no queremos, bastará 
sencillamente con modificar el carácter o caracteres erró¬ 
neos como siempre hacemos, hasta que coincida el número 
de verificación que se presentará al pulsar RETURN. 

Así pues, el sistema FUERA ERRORES se compone de dos 
partes: una codificación especial de los listados que facilitan 
su introducción, evitando los errores al confundir los carac¬ 
teres gráficos, de control, etc., y un sistema de verificación 
de líneas que nos advierte en el preciso instante de introducir 
una de estas, que está mal tecleada. 

Ahora bien, el empleo de estos dos sistemas no quiere de¬ 
cir que nos encontremos ante un BASIC diferente al de COM¬ 
MODORE 64. Este no ha cambiado, hace exactamente las 
mismas cosas de siempre; simplemente hemos cambiado la 
forma de hacer los listados. En cuanto al misterioso número 
que aparece en la esquina de la pantalla no es más que una 
simple suma de comprobación, lo que se conoce técnica¬ 
mente como un CHECKSUM. La rutina en código máquina de 
interrupción suma los valores de los caracteres que entra- 
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TABLA DE INTERPRETACION DE CODIGOS DE CONTROL 

ABR 

SIGNIFICADO 

OBTENCION 

ABR 

SIGNIFICADO 

OBTENCION 

HOM 

HOME 

CLR/HOME 

WHT 

WHITE (BLANCO) 

CTRL 2 

CLR 

CLEAR + HOME 

SHIFT CLR/HOME 

RED 

RED (ROJO) 

CTRL 3 

ABJ 

CURSOR ABAJO 

CRSR VERTICAL 

CYN 

CYAN (CIAN) 

CTRL 4 

ARB 

CURSOR ARRIBA 

SHIFT CRSR 

PUR 

GRN 

PUR PPL E (PURPURA) 
GREEN (VERDE) 

CTRL 5 

CTRL 6 



VERTICAL 

BLU 

BLUE (AZUL) 

CTRL 7 

DCH 

CURSOR DERECHA 

CRSR HORIZONTAL 

YEL 

YELLOW (AMARILLO) 

CTRL 8 

IZQ 

CURSOR IZQUIERDA 

SHIFT CSRS 

NRJ 

NARANJA 

COMMODORE1 



HORIZONTAL 

MRN 

MARRON 

COMMODORE 2 

RON 

REVERSE ON 

CTRL 9 

RCL 

ROJO CLARO 

COMMODORE 3 

ROF 

REVERSE OFF 

CTRL 0 

GR1 

GR2 

GRIS 1 

GRIS 2 

COMMODORE 4 
COMMODORE 5 

F1 

FUNCION 1 

F1 

VCL 

VERDE CLARO 

COMMODORE 6 

F2 

FUNCION 2 

SHIFT F1 

ACL 

AZUL CLARO 

COMMODORE 7 

F3 

FUNCION 3 

F3 

GR3 

GRIS 3 

COMMODORE 8 

F4 

FUNCION 4 

SHIFT F3 

Pl 

Tt 

SHIFT t 

F5 

FUNCION 5 

F5 

- 

t 

í 

F6 

FUNCION 6 

SHIFT F5 

\ 

£ 

£ 

F7 

FUNCION 7 

F7 

STP 

STOP 

RUN/STOP 

F8 

FUNCION 8 

SHIFT F7 

INS 

INSERT 

INST/DEL 

BLK 

BLACK (NEGRO) 

CTRL 1 

— 




mos en cada línea que introducimos, aplicándoles un módu¬ 
lo 256, es decir, volviendo a cero cada vez que su suma par¬ 
cial supera el 255, de este modo se crea un número entre 0 
y 255 dependiente directamente de los caracteres introduci¬ 
dos. Así pues, es prácticamente imposible que una sucesión 
de errores den por casualidad ese número, mientras que 
siempre que la línea esté correctamente introducida obten¬ 
dremos el mismo código que nosotros hallamos por igual 
sistema y añadimos al final de cada línea al realizar el listado 
del programa. 

Por tanto, el misterioso número no es tampoco una modi¬ 
ficación del BASIC de COMMODORE, sino simplemente un 
pequeño truco para la comprobación de que las líneas han 
sido bien introducidas. Propiamente no nos evita cometer 
errores de tecleado, sino que simplemente nos advierte in¬ 
mediatamente en qué línea los hemos introducido. 

Para desactivar el sistema sólo deberemos pulsar RUN/ 
STOP+RESTORE, y si por cualquier motivo nos interesara 
reactivarlo, podríamos ejecutar SYS 822, siempre y cuando 
se encuentre el código máquina en la memoria, lógicamente. 

¡ADVERTENCIA! Puesto que el código máquina se en¬ 


cuentra ubicado en el buffer del casete, es imprescindible 
desactivarlo (RUN/STOP+RESTORE) antes de realizar 
cualquier operación con dicho periférico. 


utilización del 
casete con fuera 
errores 

Si queremos introducir parte de un programa, para conti¬ 
nuar posteriormente el trabajo emprendido, sin perder por 
supuesto la enorme ventaja del FUERA ERRORES deberemos 
proceder de la siguiente forma: 

1. Desactivar el sistema FUERA ERRORES mediante la 
pulsación de RUN/STOP + RESTORE. 

2. Trasladar el código máquina desde su ubicación en el 


buffer del casete hasta otro punto desocupado en la memo¬ 
ria RAM (por ejemplo 49152). Para ello sólo hemos de sa¬ 
ber que ocupa 114 bytes desde 822 (inclusive). Una sencilla 
rutina que efectúe el trabajo de reubicación puede ser : FO- 
RI=0T0113:P0KE49152+l,PEEK(822+l):NEXT. 

3. Realizar la operación correspondiente con el casete ; 
ya sea grabar una copia de seguridad de lo introducido en la 
memoria hasta el momento, ya sea cargar el casete una par¬ 
te ya grabada del programa. 

4. Restablecer FUERA ERRORES a su punto original. Si¬ 
guiendo el caso de la línea de ejemplo anterior: FORI= 
OT0113:P0KE822+I.PEEK(49152+l):NEXT. 

5. Reactivar el sistema FUERA ERRORES mediante SYS 
822 (esta vez no aparecerá mensaje alguno, aunque al pul¬ 
sar RETURN comprobaremos que aparecen las cifras de 
control en la esquina superior izquierda). Lógicamente, los 
pasos 4 y 5 no son necesarios si después de una grabación 
se va a apagar el ordenador, y sólo se llevarán a cabo des¬ 
pués de las cargas, o si tras la grabación de una copia de se¬ 
guridad del programa, deseamos continuar introduciéndolo 
acto seguido. 


10 FÜRI =822T0935: READA: C=C-+-A: POKEI, A: NEXT 

20 IFC<>15254THENPRINTCHR*(147)"ATENCION!, HAY UN ERROR EN LOS DATOS"s END 


30 F'RINTCHR* (147) TAB (213) "FUERA ERRORES !": SYSB2: 


¡NEW 


100 

DATA 

169,3, 1- 

110 

DATA 

134,252 

120 

DATA 

164,253 

130 

DATA 

133,216 

140 

DATA 

254,224 

150 

DATA 

169,0,1 


,132,253,8,201,13,240,13,24,101,254,133,254,165,251,166,252 
,40,96,169,13,32,210,255,165,214,141,176,3,206,176,3,169,0 
,169,18,32,210,255,169,19,32,210,255,169,45,32,210,255,166 
100,176,5,169,48,32,210,255,224,10,176,5,169,48,32,210,255 
33,254,32,205,189,169,45,32,210,255,173,176,3,133,214,76,88,: 
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COMMODOE 64K, disquete 
1541, IMP, RITMAN cassette, 
CN manuales, programas, 
cassette y disco (90.000 pías). 
Dirigirse a Joan Palomas Man- 
doli. Canigo 12 Vic (Barcelo¬ 
na). 

ME gustaría intercambiar 
programas en cinta para el C- 
64. Contestaré a todas las car¬ 
tas. Interesadosiescribir a: Al¬ 
berto Marote Liébana. De la Fé 
4, 3.° 1. a . 17300 Blanes (Gero¬ 
na). 

INTERCAMBIAMOS pro 

gramas para C-128 y C-64 en 
disco. Club Commodore Ca¬ 
nario. Apartado 2.485. 35080 
Las Palmas de Gran Canaria. 

VENDO 10 interfaces copia¬ 
dores de seguridad a 3.000 
ptas. cada uno. Ofrezo 600 
programas por Unidad de Dis¬ 
co 1541. Llamar a partir de las 
21 horas. Tel.: (91) 895 32 54. 
José Julio. 

VENDO programa original 
Basic Lightning con instruc¬ 
ciones por tan sólo 3.000 ptas. 
regalo 10 programas de jue¬ 
go, también intercambio pro¬ 
gramas. Dirigirse a: José Fe- 
rrán González. Apartado 209. 
06800 Mérida (Badajoz) 

INTERCAMBIO programas 
en disco para C-64, poseo 
más de 1.000, prometo con¬ 
testar. Mandar lista a Antonio 
Molina García. Barriada de la 
Constitución, bloque 12, 2.° C. 
Melilla 

ATENCION urge comprar 
unidad de discos. O puedo 
ofrecer un lote de programas 
valorado en 130.000 ptas. a 
cambio de unidad de discos o 
de impresora o de monitor co¬ 
lor de cualquier periférico pa¬ 
ra CBM-64. Cambio- CBM-64 
por CBM-128 pagando la dife¬ 
rencia y regalo programas. 
Vendo videopac Philips G- 
7400 convertible en ordena¬ 
dor, regalo programas. Inter¬ 
cambio software para CBM, 
tengo todas o casi todas las úl¬ 


timas novedades. Francisco 
Javier Bernal Malillos. Echega- 
ray, 1. Cantalejo (Segovia). 
Tel.: (911) 52 04 04. 

SE ha formado en Barcelo¬ 
na el club B.C.S, (Barna Com¬ 
puter Service) abarca Spec- 
trum, Commodore, Amstrad y 
MSX, interesados escribir al 
Apartado 2309,08080 Barce¬ 
lona, indicando modelo de 
ordenador o llamar Tel.: (93) 
309 56 52 preguntar por An¬ 
gel. 

VENDO C-64 y unidad dis¬ 
co 1541 con poco uso en 
65.000 ptas., regalo joystick 
Quickshot II y cinco discos con 
juegos. Bruno Celaya Monte¬ 
ro. Larraina, 19-5 D. (Pamplo¬ 
na). Tel.: (948) 26 49 81. 

VENDO juegos originales 
C-64 a 500 y 1.000 ptas. cali¬ 
dad de Kane o Green Beret; in¬ 
teresados facilito lista de los 
mismos. Bruno Celaya Monte¬ 
ro. Larraina, 19-5 D (Pamplo¬ 
na). Tel.: (948) 26 49 81. 

COMPRO originales para 
Commodore y Spectrum, 
compro revistas, sobre todo 
extranjeras y cambio progra¬ 
mas para Commodore y 
Spectrum, Jorge Ron López. 
Angel Guimerá 36. Tel.: (93) 
204 14 51. 08017 Barcelona. 

DESEARIA contactar con 
usuarios del Commodore-64 
para intercambiar programas, 
ya sean juegos, utilidades, tru¬ 
cos, etc. Interesados escribir a 
Víctor Felices. Pau Duarri 75, 
3 o 4 a . 08670 Navas (Barcelo¬ 
na). Mandar lista. 

VENDO Commodore 128, 
unidad de disco 1571, monitor 
Philips 12” f. verde (cable in¬ 
cluido). Regalo libros, revistas, 
más de 10 discos con progra¬ 
mas, etc. Dos meses de uso. 
Todavía en garantía. También 
por separado. Escribir a: Jai¬ 
me Escudé, Sta. Leocadia, 20. 
Figueres. Tel.: (972) 50 91 98. 

INTERCAMBIO programas 
en cinta para C-64, tengo más 


de 800 títulos, últimas noveda¬ 
des. Mandad vuestra lista a: 
Javier Frególa. Pza. La Sal 9. 
25007 Lérida. 

ATENCION adictos del 
Commodore. Si queréis inter¬ 
cambiar las últimas noveda¬ 
des en Commodore escribir a: 
Joan M. a Mas Ribes. Ctra. Cas- 
tellvell, ed «Les Palmeres», 
esc. B atic. 3206 Reus. Tel.: 
(977) 31 44 05. 

ESTOY interesado en com¬ 
prar una unidad de disket 
1541 de segunda mano, a ser 
posible con garantía válida y 
algunos programas. Posibles 
vendedores escribid a: Joan 
M. a Mas. Ctra. Castellvell, ed. 
«Les Palmereses». B. 43206 
Reus. Tel.: 31 44 05. 

PARA recaudar fondos para 
la compra de nuevo equipo C- 
128, vendo para el C-64 lo si¬ 
guiente: entre juegos y utilida¬ 
des hacen un total de 250 pro¬ 
gramas, juegos como Com¬ 
mando, One on One, Fist I, 
Break Dance, The Dam Bus- 
ters, etc., utilidades tales como 
Tasword (procesador de tex¬ 
tos), Simon’s Basic, San Reci- 
ter, etc. También vendo revis¬ 
tas de Commodore Worl, Ma- 
gazine, Input, Tu Micro, Muy 
Ordenadores, Ordenador Per¬ 
sonal, etc., y por último, vendo 
libros: Gráficos y sonido para 
el C-64, varios libros de Infor¬ 
mática, Diccionario de Electró¬ 
nica e Informática, etc. Dirigir¬ 
se a: Miguel Angel Huelves 
García. Entre Arroyos 64,1.° B. 
20030 Madrid. Tel.: 
(91)4399631. 

COMPRO números atra¬ 
sados de la revista Tu Micro 
Commodore (primera época). 
Escribir a: José L. Pérez Hor¬ 
nero. Viviendas OP, 6 .(El Vive¬ 
ro) Trujillo 10200 (Cáceres). 

VENDO Commodore 128, 
unidad de discos 1571 con 
garantía todo prácticamente 
nuevo con manuales y progra¬ 
mas a escoger entre unos 


lona). 

DESEO me envíen informa¬ 
ción acerca de la venta de jue¬ 
gos y utilitarios que figuran en 
la revista. Mi interés es saber si 
yo puedo comprarlos desde 
aquí. Escribir a: Avda. Acceso 
Este 2890 Nueva Mendoza 
(Argentina). 

CAMBIO módulo expansor 
VIC 1020 para 6 cartuchos con 
dos de 8 y 16K respectivamen¬ 
te (para VIC 20) por cualquier 
material informático, electróni¬ 
co o fotográfico etc. Escribir a: 
J. Casais. Ponte de Saa 74, Vi- 
llalba 27800 (Lugo). 

COMPRO unidad de discos 
en buen estado, también inter¬ 
cambio programas de todo ti¬ 
po, tengo títulos tan importan¬ 
tes como: First I y II Ghosts’n 
1000. Muy bien de precio. Lla¬ 
mar a José. Tel.: 332 56 90 ó 
422 66 41 (Barcelona). Tam¬ 
bién lo vendo por separado. 
Escribir: José Muñoz. Martí 
Codolar 47. Hospitalet (Barce- 
Goblins, Law of the west, Para- 
llax, Dragon’s Lair, 1942 e infi¬ 
nidad de juegos. Tel.: (968) 24 
68 65. Escribir a: Julio Bel- 
monte Tornel. Avda. de la Fa¬ 
ma, 17. 30006 (Murcia). 

INTERCAMBIO juegos de 
CBM-64 en cinta o disco. Lla¬ 
mar a: (93) 209 76 62. Escribir: 
Sergio Frías. Balmes 306, 3.° 
2. a . 08006 (Barcelona) 

ESTOY interesado en el in¬ 
tercambio de programas para 
CBM-64 en cinta, poseo las úl¬ 
timas novedades del Reino 
Unido. Prometo contestar to¬ 
das las cartas. Escribir a: Ro¬ 
gelio Ferrer Troyano. Ebro 23, 
(Heliopolis). 41005 (Sevilla). 

ME urge mucho vender 15 
interfaces copiadores para el 
64. Cien por cien efectivos, los 
vendo sólo a gente de Madrid 
y alrededores a 3.000 unidad o 
los cambio por unidad 1541. 
Ofrezco 700 programas por 
dicha unidad. Dirigirse a: José 
Julio. Tel.: 895 32 54. 
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CODIGO MAQUINA Él 


Kerna! 


No es demasiado lógico ga s tar el tiempo en «reinventa r la rueda», sobre 

todo al h abl ar de código máquina. Sí, en muchos casos, ya existen en el or¬ 

denador los programas encargados de la tarea que i n tentamos realizar, 
¿por qué escribirlos de nuevo? 



orno ya sabemos a estas al¬ 
turas, programar no es tarea 
sencilla (ini cómoda, lo cual 
es peor!) en muchos casos; e, 
incluso, puede llegar a ser 
casi imposible en otros. 

Esto es especialmente verdad al hablar 
del sistema operativo de la máquina, es de¬ 
cir, el conjunto de rutinas que permiten con¬ 
trolar el teclado, la pantalla, el disco o cin¬ 
ta, etc. El software necesario para gestionar 
todas las operaciones de entrada/salida 
suele ser bastante complejo, o al menos, 
nada divertido de desarrollar. 

Por tanto, una vez que el fabricante nos 
ha provisto de un buen conjunto de rutinas 
encargadas de todas estas tareas, no utili¬ 
zarlas sería, cuando menos, poco inteligen¬ 
te. Pero existe un detalle adicional: la com¬ 
patibilidad. 

En efecto, un programador mediana¬ 
mente dotado de habilidad (y de grandes 
dosis de concentración y paciencia) puede 
desarrollar rutinas de, por ejemplo, manejo 
de la unidad de disco. Y tal vez llegue a 
crear un sistema nuevo, que funcione a 40 
veces la velocidad normal, y sea toda una 
maravilla, y... ÍSólo le silva a él! 

Si cada programador se dedica a su 
propio sistema, no será posible compatibili- 
zar los programas de distintos fabricantes, 
amén de que tampoco es nada sencillo eso 
de hacerse un sistema operativo propio... 



Menos mal que hay... ¡Kernal! 

Si las razones anteriores no han logrado 
convencernos de lo adecuado de utilizar 
las rutinas propias del sistema, entonces na¬ 
da lo hará (salvo, tal vez, un buen martillo... 
Probaremos, gracias). 

En la ROM de Commodore, tenemos to¬ 
do un conjunto de programas de gran utili¬ 
dad: un intérprete de BASIC, rutinas mate¬ 
máticas, programas de gestión de periféri¬ 
cos... 

Utilizar una de estas rutinas es, en gene¬ 
ral, sencillo: sólo hay que conocer el punto 
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de entrada a la misma, es decir, la dirección 
en la cual comienza. A continuación, car¬ 
gar los registros del procesador y las posi¬ 
ciones de memoria requeridas por la rutina 
con los valores adecuados, y efectuar el 
salto al punto de entrada. 

Vamos a analizar en el presente artículo 
un grupo de rutinas de gran utilidad: las ru¬ 
tinas Kernal. Estas contienen todo el código 
de manejo de la pantalla, teclado, periféri¬ 
cos (disco, cinta, impresora, etc), inicializa- 
ción del ordenador, proceso de interrupcio¬ 
nes, etc. En realidad, estas rutinas son el co¬ 
razón del Commodore, pues todos los de¬ 
más programas las utilizan (desde el intér¬ 
prete de BASIC a muchos programas de 
utilidades o juegos. 

En términos más apropiados, diremos 
que estas rutinas gestionan al más bajo ni¬ 
vel todas las operaciones de E/S. 


Entradas a las rutinas Kernal 

Para comprender el sistema de acceso al 
Kernal, vamos a ver un pequeño ejemplo: 
imaginemos que la rutina que abre un fi¬ 
chero en disco empieza en la dirección 
$E000. Para emplearla, por ejemplo, po¬ 
dríamos hacer un JSR $E000 en nuestro pro¬ 
grama. 

En general, nada más sencillo, pero exis¬ 
te una posible fuente de problemas. En 
efecto, durante la producción de un orde¬ 
nador, a veces se cambia la ROM, para co¬ 
rregir errores, añadir nuevas funciones, etc. 
Por ejemplo, esto es lo que ocurrió hace 
cierto tiempo en la ROMdel 64, que fue mo¬ 
dificado para corregir ciertos problemas. 

¿Qué ocurriría, si durante una de esas 
modificaciones, la rutina de disco se des¬ 
plaza de $E000 a $E001 (como suele ocu¬ 
rrir en las correcciones de ROM, los despla¬ 
zamientos suelen ser de pocos bytes, uno 
en este caso)? Pues, sencillamente, que en¬ 
contraríamos que nuestro programa, el 
cual funciona perfectamente en unas má¬ 
quinas, hace las cosas más extrañas en 
otras, aparentemente sin más motivo que la 
simpatía que le inspire su dueño. 

Este tipo de problema aparece, sobre to¬ 
do, en máquinas más potentes, donde el 
sistema operativo se halla principalmente 
en RAM (como pueden ser los IBM PC), 
donde las revisiones suelen-ser frecuentes o, 
incluso, periódicas. 

Para solucionar esta fuente de proble¬ 
mas, se recurre a una especie de salto indi¬ 
recto: en un área de memoria se mantiene 
una tabla con las direcciones reales de las 
rutinas. Para acceder a ellas, se hace el sal¬ 
to a la dirección de esa tabla, desde donde 
se relanzará a la dirección exacta, inde¬ 
pendientemente de la revisión del software 
en la cual nos hallemos. 
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Las rutinas Kernal funcionan así: En el 
área de memoria $FF81 a $FFF5 (Ó5409 a 
Ó5525) se encuentran almacenadas ins¬ 
trucciones JMP «dirección», a razón de tres 
bytes por cada una. Así, un JSR $FF81 en¬ 
cuentra la instrucción JMP $E387 (por ejem¬ 
plo), con lo cual se dirige al punto correcto. 
Este método de acceso asegura la compa¬ 
tibilidad entre todas las aplicaciones que 
utilicen la tabla con todas las versiones del 
software. 

Obviamente, la descripción de las ruti¬ 
nas variará de una máquina a otra. Vamos 
a describir las rutinas del C-64 y las del C- 
128, salvo las especificadas de este último, 
las que utiliza el 64 son compatibles con 
otras máquinas Commodore, particular¬ 
mente con el Vic 20 y el C-16. 


Descripción de las rutinas Kernal 


En las descripciones que siguen, vamos a 
analizar detalladamente cada rutina, su 
posición y los registros que necesita, así co¬ 
mo las rutinas que deben ser llamadas pre¬ 
viamente para que ésta funcione. Para po¬ 
nernos de acuerdo desde el principio, va¬ 
mos a emplear la siguiente nomenclatura: 

FUNCION: Incluiremos el nombre oficial 
dado por Commodore a la rutina. 

DIRECCION: La dirección a la que he¬ 
mos de llamar para acceder a esta rutina 
(la dirección de la tabla de saltos, no la di¬ 
recta). 

ENTRADAS/SALIDAS: Describimos los 
registros (tras la abreviatura REG) y/o posi¬ 
ciones de memoria (MEM) en las cuales de¬ 
bemos introducir los parámetros requeridos 
por la rutina o en los que la misma devolve¬ 
rá sus resultados. El signo «—» indicará que 
no se utiliza ninguno. 

RUTINAS PREVIAS: En algunos casos, pa¬ 
ra que una rutina funcione es preciso haber 
llamado previamente a otras (por ejemplo, 
para enviar un carácter a la impresora te¬ 
nemos que haber abierto el canal de im¬ 
presora, o se producirá un error). Los nom¬ 
bres de las rutinas requeridas serán inclui¬ 
dos aquí. 



POSIBLES ERRORES: Cuando a la salida 
de una rutina el indicador de Acarreo (C) 
está a uno, se indica que se ha producido 
un error; en este caso, el registro A contiene 
el código que describe el error producido. 
Los posibles errores se describen aquí. 

STACK: Cada rutina va a ocupar una 
parte del stack, para almacenar variables 
intermedias o realizar llamadas a otras ruti¬ 
nas. Indicaremos la cantidad de stack que 
la rutina utilizará. 

DESCRIPCION: De la rutina, por supues¬ 
to: efecto producido, entradas y salidas, 
¡unto a un ejemplo de su uso. 

Comencemos pues con la descripción 
de las rutinas Kernal para el CMB-64. 

FUNCION: ACPTR 
Dirección: $FFA5 (65445) 

Entradas: REG: — 

MEM:- 
Salidas: REG: A 
MEM:- 

Rutinas previas: TALK, TKSA 
Errores: Leer status con READST. 

Stack: 13 

Descripción: Esta rutina recibe un byte 
(contenido en el acumulador) del canal se¬ 
rie de Commodore. Este byte viene dirigido 
del dispositivo que previamente ha sido ini- 
cializado mediante TALK para enviarnos 
datos. Ejemplo: 

JSR ACPTR 
STA DATO 

JSR READST; COMPRUEBA ERRORES 
FUNCION: CHKIN 
Dirección: $FFC6 (65478) 

Entradas: REG: X 
MEM:- 

Salidas: REG: A 
MEM:- 

Rutinas previas: OPEN 
Errores: 3,5,6 
Stack: — 

Descripción: Abre un canal (siempre que 
deba ser otro que el teclado) como canal 
de entrada de datos. El número del canal a 
ser utilizado se incluye como parámetro de 
entrada en el registro X. Todo fichero que 
haya sido abierto previamente con la fun¬ 
ción OPEN, puede ser utilizado como canal 
de entrada, por supuesto, siempre que las 
características del dispositivo lo permitan 
(abrir como dispositivo de entrada una 
pantalla, por ejemplo, no es muy lógico que 
digamos...). 

Esta rutina es necesaria cuando se quie¬ 
ra leer datos de otro dispositivo que no sea 
el teclado, por lo que se necesita ejecutar 
esta rutina antes de leer datos con otras 
funciones. Si no se hace, los datos serán leí¬ 
dos siempre del teclado, con lo que los des¬ 
pistes de esta clase' suelen ser difíciles de 
encontrar. 

Ahora bien, si se ha ejecutado esta rutina 
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y se desea volver a utilizar el teclado, se de¬ 
be volver a llamarla, introduciendo en X el 
número del canal de teclado (0). Un ejem¬ 
plo de utilización podría ser el siguiente: 

LDX # 8 /NUMERO DEL DISCO 
JSR CHKIN ,-ENTRADA DEL DISCO 
BCS ERROR ; SI OI, A CONTIENE 
EL ERROR PRODUCIDO 


LDX * 0 /NUMERO DEL TECLADO 
JSR CHKIN /VUELVE A SER EL 

DISPOSITIVO DE ENTRADA 

FUNCION: CHKOUT 
Dirección: $FFC9 (65481) 

Entradas: REG: X 
MEM: - 
Salidas: REG: A 
MEM:- 

Rutinas previas: OPEN 
Errores: 3,5,7 
Stack: — 

Descripción: Esta rutina, muy similar a la 
anterior, abre un canal (siempre que deba 
ser otro que la pantalla) como canal de sa¬ 
lida de datos. El número del canal a ser utili¬ 
zado se introduce como entrada en el re¬ 
gistro X. Todo fichero abierto previamente 
con la función OPEN puede utilizarse como 


canal de salida, siempre que las caracterís¬ 
ticas del dispositivo lo permitan. 

Esta rutina es necesaria cuando desee¬ 
mos enviar datos a otro canal diferente de 
la pantalla, por lo cual es necesario ejecu¬ 
tar esta rutina antes de enviar dichos datos 
con otras rutinas. Si no se hace, los datos se¬ 
rán enviados a la pantalla, con lo que, al 
igual que en el caso anterior, los despistes 
de esta clase suelen ser difíciles de encon¬ 
trar. 

Como en el caso anterior, si se ha ejecu¬ 
tado esta rutina y se desea volver a utilizar 
la pantalla como salida, se debe volver a 
llamarla, introduciendo en X el número del 
canal de pantalla (3). Un ejemplo de utiliza¬ 
ción podría ser el siguiente: 

LDX n 8 /NUMERO DEL DISCO 
JSR CHKOUT /SALIDA AL DISCO 
BCS ERROR ; SI OI, A CONTIENE 
EL ERROR PRODUCIDO 


LDX *3 /NUMERO DE PANTALLA 

JSR CHKOUT /VUELVE A SER EL 

DISPOSITIVO DE SALIDA 

FUNCION: CHRIN 
Dirección: $FFCF (65487) 

Entradas: REG: — 

MEM:- 


Salidas: REG: A 
MEM: - 
Rutinas previas: — 

Errores: Leer status con READST 
Stack: — 

DESCRIPCION: Esta rutina permite leer 
un dato (el cual será devuelto en el acumu¬ 
lador) del canal de entrada actualmente 
abierto,- si no se ha abierto ninguno (con la 
combinación de las rutinas OPEN y CH¬ 
KIN) se lee del canal de datos por defecto, 
que es el teclado. El canal sigue abierto 
después de esta llamada. 

En el caso particular del teclado, la pri¬ 
mera llamada a esta rutina activa el cursor 
y el editor de pantalla, lo cual permite te¬ 
clear los datos hasta que, finalmente, se 
pulsa «RETURN». En ese instante, el cursor 
se desactiva y la rutina devuelve el primer 
carácter que hayamos tecleado. 

Las siguientes llamadas a la rutina van 
devolviendo los caracteres sucesivos, hasta 
que, por fin, leamos el último (que será un 
carácter cuyo código ASCII es 13, es. decir, 
un retorno de carro). La próxima llamada 
volverá a activar el cursor, repitiéndose el 
proceso indefinidamente para la entrada 
por teclado. 

Por desgracia, el espacio de que dispo¬ 
nemos no permite más por el momento,- en 
el próximo número continuaremos con la 
descripción de las rutinas Kernal. 
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Colaboremos todos en la confección de 
estos 7 MAGNIFICOS de TU MICRO 
COMMODORE. Envíanos el nombre de tu 
programa favorito, dejando muy claro tu 
nombre y dirección. Todos los meses, sor¬ 


tearemos cinco suscripciones por un año a 
nuestra revista entre las respuestas recibi¬ 
das. Anímate y escríbenos a: TU MICRO 
COMMODORE. (7 MAGNIFICOS). Apar¬ 
tado de Correos 61.294. 28080 MADRID. 
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2 . Creen Beret 
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Aunque su nombre nos pueda engañar , este título no esconde una 

ampliación del ya potente BASIC del C-128; e n este caso, se tra ta de un 

magnífico y completo compilador, que permite pasar a código máquina o a 

un código intermedio llamado P todos los programas escritos en el BASIC del 

C-128. 


FAST. Independientemente de esta orden, 
capaz de acelerar el reloj interno hasta 2 
MHz, el compilador es capaz de ejecutar 
entre 4 y 32 veces más rápido, según las ca¬ 
racterísticas del programa en concreto, 
cualquier fuente en BASIC del C-128. 

Por otra parte, BASIC 128 se sale de lo 
habitual en el ámbito de las utilidades de su 
clase, dado que facilita un gran número de 
aplicaciones especiales que más adelante 
estudiaremos. 


e trata de un programa edi¬ 
tado por Ferre Moret, con la 
calidad a que nos tiene 
acostumbrados esta casa, 
editora de libros para orde¬ 
nadores y software de alto nivel. 

Su presentación es desde luego impeca¬ 
ble: un estuche de plástico, a semejanza 
de un libro y en su interior, un disco con el 
programa y un completo manual que ¡lustra 
las funciones del compilador con toda clari¬ 
dad. 


Probablemente, el problema mayor del 
BASIC del C-128 es su, en ocasiones exas¬ 
perante, lentitud, aún a pesar del comando 
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Uso del BASIC 128 




Para empezar, es digno de aplauso el 
hecho de que el programa funcione me¬ 
diante menús, lo cual permite al usuario 
cambiar los parámetros de compilación ta¬ 
les como modo FAST o SLOW, rutinas pro¬ 
pias de coma flotante, generador de listas 
de líneas para hallar los errores, overlay, 
ampliaciones de basic, etc. 

El uso del menú simplifica enormemente 
las cosas y el programa permite guardar los 
parámetros elegidos en el disco para pos¬ 
teriores aplicaciones. 

Por otra parte, también es seleccionare 
el grado de compilación, o nivel de optimi¬ 
zación de la compilación; en el primer gra¬ 
do (más bajo), se crea un código interme¬ 
dio entre el código máquina y el BASIC, de¬ 
nominado código P; en el segundo nivel, se 
emplean variables enteras y se genera di¬ 
rectamente código máquina. 

Normalmente, el programa compilado 
(objeto) es más largo que el fuente en BA¬ 
SIC, e igualmente, el objeto es más largo 
que el compilado en código P; no obstante, 
la velocidad de ejecución es muy superior, 
aunque siempre depende del tipo de ins¬ 
trucciones utilizadas en nuestro programa 
fuente BASIC (bucles, tipos de variables, 
etc.). 

En lo referente a la velocidad de compi¬ 
lación es bastante elevada y depende de 
la unidad de disco que empleemos (la 1541 
ó la 1571), dado que todas las operaciones 
de compilación se reflejan en el disco, el 
cual está en funcionamiento casi todo el 
tiempo. 

En el tiempo de compilación, el progra¬ 
ma comprueba la sintaxis de la fuente BA¬ 
SIC, línea por línea, mostrándolas en la 
pantalla según va trabajando con cada 
una de ellas; si encuentra un error no se de¬ 
tiene la compilación, pudiéndose obtener 
una lista de errores para, tras corregirlos, 
volver a efectuar el proceso. 

Aplicaciones especiales 

Como aplicaciones especiales, el BASIC 
128 tiene las siguientes: 

A) Compilación de paquetes «overlay». 
Esta técnica consiste en la compilación de 
vahos programas que usan las mismas va¬ 
riables, pero que por su longitud se tienen 
que cargar por partes en memoria. 

B) Posibilidad de utilizar una serie de ruti¬ 
nas aritméticas de coma flotante, que per¬ 
miten superar en velocidad y precisión a las 
implementadas en la memoria ROM del 
128. 

C) Capacidad para generar programas 
mixtos de BASIC-código P, BASIC-código 
máquina, y código P-código máquina, se¬ 


gún las necesidades de memoria y optimi¬ 
zación necesarias. 

D) Capacidad de trabajar con amplia¬ 
ciones del BASIC del 128. 

E) Posibilidad de uso de gráficos de alta 
resolución en la pantalla de 80 columnas 
del 128. 

Compilando con BASIC 128 

En cuanto al manejo de BASIC 128 es 
bien sencillo: se carga con RUN "BASIC 
128"; cuando esté en funcionamiento, apa¬ 
recerá el menú de los parámetros de com¬ 
pilación, y una vez que los tengamos ajus¬ 
tados, nos pedirá el nombre del programa 
a compilar. A partir de este momento todo 
el trabajo correrá a cargo, de forma auto¬ 
mática, del BASIC 128. 

La única precaución que debemos tomar 
para que el BASIC 128 pueda trabajar, es 
disponer de bastante memoria en el disco 
donde se encuentra el programa a compi¬ 
lar, aunque no es necesario que éste sea el 


único presente en el mismo. 

Por último, para identificar los programas 
y listados, el BASIC 128 utiliza los siguientes 
símbolos: 

El programa compilado lo identifica con 
una P— delante y se ejecuta con RUN "P— 
nombre del programa". 

El listado de líneas se identifica con Z— 
nombre del programa. 

En definitiva, se trata de un programa 
muy útil para el programador exigente y el 
profesional, de manejo sencillo y con altas 
prestaciones, así como una buena calidad/ 
precio. 


Título: BASIC 128. 

Distribuidor: Ferre Moret, S.A. 

Tuset, 8, Entlo. 2. a . 
Tel.: (93) 218 02 93. 
08006 Barcelona. 
Precio: 5.850 ptas. (+ IVA). 
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CHISPA: 


Cuando en el C64, quere¬ 
mos trabajar con un programa 
BASIC, unos cuantos sprites y 
unapantalladealta resolución, 
surgen problemas de incom¬ 
patibilidad de memoria. 

El VIC-II al conectar el orde¬ 
nador, «apunta» al banco 0 (0- 
16383); una pantalla de alta re¬ 
solución, necesita 8K conti¬ 
guas, en este caso de 0 a 8191 
o de 8192 a 16383. Como en el 
primer caso cogemos la pági¬ 
na cero, esa posición se des¬ 
carta, quedando sólo útil la que 
va desde 8192 a 16383, pero 
esta zona está dentro del BA¬ 
SIC y los sprites los solemos 
guardar en 12288 y siguientes. 

¿Qué hacer? La respuesta 
es subir el inicio del BASIC 
hasta 16384 con:POKE44,64 
POKE64*256,0:NEW. Con es¬ 
to, conseguimos además sitio 
para almacenar 32 sprites, 
desde 2048 hasta 4095, con lo 
que todo queda resuelto. 


CHISPA: 


En algunos programas de 
nuestra revista, se ha hecho 
uso de los relojes denomina¬ 
dos TOD (Time Of Day). Estos 
no son demasiado fáciles de 
manejar, puesto que la re¬ 
presentación en memoria es 
del tipo BCD (Decimal Codifi¬ 
cado en Binario), lo cual sig¬ 
nifica que un número de dos 
dígitos, estará codificado de 
la siguiente forma: Las dece¬ 
nas ocuparán los 4 bits de 
mayor peso, y las unidades 
los 4 de menor peso. Tradu¬ 
cido a decimal, veamos como 
sería, por ejemplo, la cuenta 
del registro de los segundos: 

01, 02, 03, 04, 05, 06, 07, 
08,09,16,17,18,19,20,21,22, 
etc. 

Esto no tiene mucho senti¬ 
do si no lo pasamos a hexa- 
decimal, en cuyo caso los va¬ 
lores correspondientes se¬ 
rían: 

01,02,03,04,05,06,07,08, 
09,10,11,12,13,14,15,16,etc. 


Las direcciones en deci¬ 
mal de los relojes (son dos), 
son: 

56328: Décimas de segun¬ 
do. 

56329: Segundos. 

56330: Minutos. 

56331: Horas, bit 7 bande¬ 
ra AM/PM. 

56584: Décimas de segun¬ 
do. 

56585: Segundos. 

56586: Minutos. 

56587: Horas, bit 7 bande¬ 
ra AM/PM. 

Para trabajar sin proble¬ 
mas con ellos, conviene co¬ 
nocer dos peculiaridades: 

1) Hay que comenzar 
siempre a poner en hora por 
el registro de las horas, y ter¬ 
minar por el de las décimas 
de segundo. 

2) El reloj se detendrá al 
hacer un PEEK o un POKE a 
cualquiera de los registros 
de horas, minutos o segun¬ 
dos y continuará al acceder 
al de las décimas de segun¬ 
do. 


CHISPA: 


En muchas ocasiones, es 
necesario presentar una sali¬ 
da numérica redondeada a 
un cierto número de decima¬ 
les. Suponiendo que el nú¬ 
mero a redondear sea X, y 
que el de decimales deseado 
sea D; la función del ejemplo 
de la línea 10, hará el trabajo. 
Para utilizarla debemos defi¬ 
nir primero en la variable D el 
número de decimales, y des¬ 
pués, en la variable X, el nú¬ 
mero en cuestión. Las líneas 
siguientes a la 10 son un 
ejemplo de demostración. 
Veamos como puede redon¬ 
dear a decenas (D=—1), cen¬ 
tenas (D=—2), etc., y no sólo a 
cifras decimales. 

10 DEF FNR (X)=INT (X*10 
t D+5)/10 T D 

20 X=148.527657: PRINT”X 
—’;X: PRINT: PRINT” DE- 
CIMALES”;TAB(15);”X 
REDONDEADO” 


30 PRINT“-”;TAB(15); 

40 FORD=—2T06:PRINT- 
TAB(3);D;TAB(16); 
FNR(X):NEXT 


CHISPA: 


En todos los procesos de si¬ 
mulación, son necesarios los 
números aleatorios, los cuales 
son fáciles de obtener desde 
BASIC con la función RND; pe¬ 
ro la cosa se complica si esta¬ 
mos trabajando en código má¬ 
quina. Una de las mejores 
fuentes de que disponemos 
para la obtención de números 
aleatorios, es seleccionar la 
forma de onda de ruido, y leer 
su salida. 

Para ello procederemos de 
la siguiente manera: colocare¬ 
mos un valor de $FF en la posi¬ 
ción $D40F, que es el valor alto 
de frecuencia de la voz 3, des¬ 
pués colocamos $80 en 
$D418, con lo que desconec¬ 
tamos la voz tres, después, $81 
en $D412, con lo que seleccio¬ 
namos ruido en la forma de on¬ 
da de la voz 3. Ahora, cada vez 
que necesitemos un valor alea¬ 
torio entre 0 y 255, bastará con 
leer el registro $D41 B, que es 
el generador de números alea¬ 
torios de la voz 3. 


CHISPA: 


Recientemente, ha caído en 
nuestras manos una rutina en 
código máquina para leer los 
joysticks del Commodore 
Plus/4. El «truco», consiste en 
colocar el valor $FA en la di¬ 
rección $FF08 si queremos 
leer el joystick uno y $FD (en 
la misma posición) si quere¬ 
mos leer el joystick 2. 

Utilizando la llamada $A45F, 
que imprime un número en la 
pantalla, la siguiente rutina 
cumple el objetivo propuesto. 
Introdúcela con el monitor, sal 
de éste y teclea SYS 828, verás 
el número correspondiente al 
valor del joystick en la pantalla. 
Cambia el primer valor ($FA) a 
$FD para leer el joy «2. 


033C LDA n$FA 
033E STA $FF08 
0341 LDA $FF08 
0344 TAX 
0345 LDA v $00 
0347 JSR $A45F 
034 LDA U $0D 
034C JSR $FFD2 
034F JMP $033C 


CHISPA. 


En el manual de la unidad de 
discos, existe una opción de¬ 
nominada SAVE-and-REPLA- 
CE (SAVE « C:nombre»), que 
simplemente es mejor no usar 
nunca. Esta opción, tiene un fa¬ 
llo de base en la ROM de la uni¬ 
dad de disco, y puede causar 
problemas a la larga. 

Parece ser que el uso de esta 
opción se ve comprometido 
cuando el espacio disponible 
en disco no supera el doble del 
tamaño del programa a salvar. 
El falloque se PUEDE producir, 
es un problema de BAM (Block 
Access Memory), y el caso más 
usual, es intentar cargar el pro¬ 
grama, habiendo grabado 
después de efectuar la opera¬ 
ción otro programa, y conse¬ 
guir este último, habiendo per¬ 
dido el anterior para siempre. 
Esto se puede agravar si no po¬ 
nemos el 0 después del carác¬ 
ter @ (en apariencia funciona 
igual). Por lo tanto, lo mejor es 
no emplear este comando, y 
efectuar en su lugar, las si¬ 
guientes operaciones, mucho 
más seguras. 

1. Borrar el programa anti¬ 
guo del disco (OPEN 
15,8,15,«S:.„») 

2. Grabar la nueva versión 
(SAVE «...»,8). 

Si no queremos perder la 
antigua versión, bastará con 
renombrarla y grabar la nueva 
con el mismo nombre. 


CHISPA: 


Para todos aquellos que 
quieran saber los nombres de 
las personas que han fabrica¬ 
do su C128, el siguiente SYS 
es un espía perfecto: 
SYS32800,123,45,6. 


66 TU MICRO COMMODORE 



















CONQUISTAMOS EL OBJETIVO 
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AMSTRAD 


LOS MEJORES JUEGOS 
AL PRECIO MAS BAJO 


DRO SOFT 


DRO SOFT, FUNDADORES 3, 28028 MADRID, TELEFONO 2554500/09 


Serie M.A.D. 

KnightTyme 
Conquest 
Master Of Magic 
180! 

La Venganza 
Ninja 


Locomotion 
Fórmula 1 
Finders Keepers 
Chiller 

Nonterraqueus 


Flash Gordori commodore 


Oblivion 

One Man And His Droid 

Molecule Man 

Kane 

Radzone 

Speed Klng 

Storm 

The Apprentice 
Super Pipeline II 
Back To Reality 
Hyperbowl | 

Xcel J • 
Hollywood or Bust 
Fly Spy 
Serie M.A.D. 

Las V8 
KnightTyme 
Five A Side 
Conquest 
Golden Talismán 
La Venganza 
180! 

Ninja 


Fórmula 1 
Finders Keepers 
Chiller 
Space Walk 
Molecule Man 
Speed King 
Storm 

..Octagon Squad 
3.2.1 Johnny Comomólo 
Soul a Robot 
Caves of Doom 

Serie M.A.D. 

KnightTyme 
La Venganza 


88 $ 


Kane 

Action Biker 
Finders Keepers 
Nonterraqueus 
1985 The Day After 
Bump Set 
Kik Start 
One Man And His Droid 
Human Race 
Speed King 

zzz 

Hollywood 
Street Surfer 
Super Pipeline II 
Los Angeles S.W.A.T. 
Back to Reality 
Master Chess 
Storm 

Moleculeman 
Xcel 
Panther 
Serie M.A.D. 

Five a Side 
Talismán 
Last V8 
Ninja 

Hole In One 
180 

Flash Gordon 


Action Biker ;. 
Locomotion 
Fórrhula 1 
Finders Keepers 
Nonterraqueus 
1985 The Day After 






Ninja COMMODORE 

Sky Ranger 
Jason Gem 
Incredible Shrinking 
One Man And His Droid 
Space Walk. 

Bump Set 

Storm 

Pippo 

Hyperbowl 

Xcel 

FutureGame? 

Octagon Squad 
Kane 


UrMtv. 

' %■ 

i-F. 


mmmmmru 




Back to Reality commodore 


COMMODORE 64 


SPECTRUM 


M.S.X. 
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OATAMON, S. A. 


REPRESENTACION EN 
ESPAÑA DE: 


*rrsmii: 


PROVENZA, 385-387 
TEL. (93) 207 24 99* 


TELEX 97791 
08025 BARCELONA 


Gama F+/C+ 

le ofrecemos ahora también los ordenadores personales compatibles-asequibles 

PECEMAN 


y 




h- 




hz) 


Gama 8088 


Gama Turbo (4,77 y 8 Mhz) Gama AT Turbo (8 y 10 Mhz) 


A Vd. que ya nos conoce por las impresoras 


720 

Turbo 


los más 


De venta en los mejores establecimientos especializados 














































